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Put 64K CP/M 22 in your 


TRS-80 Model III and tap into 








N- you Can run programs such 
as WordStar, dBASE Il, 


SuperCalc, MailMerge and vir- 
tually thousands of other CP/M- 
based programs on your TRS-80 
Model Ill. 

CP/M 2.2 is the industry stan- 
dard operating system that gives 
you access right now to over 
2,000 off-the-shelf business pro- 
grams. 

Our plug-in Shuffleboard III 
comes with 16K of RAM, giving 
your Model Ill the power of full 
64K CP/M 2.2 without inter- 
ference of the ROM or video 
memory. In fact, the Shuffleboard 
will appear transparent in the 
TRS-80 mode and will not inter- 
fere with any DOS operation. 


Cinfortunately, there is no stan- 
dardized CP/M format for 54%” 
diskettes. But we have developed 
a way to READ/WRITE and RUN 
standard programs under the 
following single-sided formats: 
Osborne 1 S/D, Xerox 820 S/D, 
IBM PC* D/D for CP/M 86 only, 
Superbrain D/D, Kapro II D/D, HP 


125 D/D and TeleVideo D/D. 
*Will Read and Write Only. 


It's so simple. The Shuffleboard 
Ill plugs into two existing sockets 
inside your Model Ill. There are no 
permanent modifications, no cut 
traces and no soldering. You'll be 
up and running 
in minutes. 
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WordStar & MailMerge are trademarks of MicroPro 
SuperCalc is a trademark of SORCIM. 


2,000 business programs 


Features 
dual intensity screen, programmable 
cursor control for block, underline & 
blink rate, on-board bell with audible 
keyclick, battery-operated real time 
calendar/cliock, full ASCII character 
set plus 256 special character 
graphics, dual RS-232 outputs and 
composite video output. 

= Now 
you can access 51%” and 8” floppy 
disk drives in any combination up to 
4 drives of S/D density, S/D sided. 
Tap into a wealth of CP/M software 
which comes on 8” IBM 3740 format 
or Pickles & Trout CP/M for the Model 
ll. 

| Additional CP/M soft- 
ware programs are available. Call or 
write for details. 
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dBASE ll is a trademark of Ashton-Tate. 
CP/M is a trademark of Digital Research. 


S209 
The Shuffleboard III comes fully 
burned-in and tested complete 
with 64K CP/M 2.2 and MBASIC 
80 interpreter, plus software 
manuals and a first class user's 
manual — with a 1-year limited 


warranty and 15-day no-risk free 
trial — for only $299. 


Once you see what the Shuffle- 
board can do for your Model Ill 
you ll want one at once. If your 
dealer does not yet stock the 
Shuffleboard have him give us a 
call. Or send check, money order, 
VISA or MASTERCARD number 
(sorry, no COD’s) plus $5 shipping 
per board ($17 outside the USA & 
Canada)* directly to the address 
below. Cal. residents please add 
sales tax. Credit card purchases 
can be phoned in directly and 
we ll ship from stock. 


*Air mail shipments to Canada & all other 
countries. 


14666 Doolittle Drive San Leandro, CA 94577 
(415) 483-1008 


TRS-80 is a trademark of Tandy Corporation. 
IBM is a trademark of IBM Corporation. 










Z-80° and 8086 FORTH 


PC/FORTH”™ for IBM® Personal Computer available now! 


FORTH Application Development Systems include interpreter/compiler with virtual memory 
management, assembler, full screen editor, decompiler, demonstration programs, utilities, and 130 
page manual. Standard random access disk files used for screen storage. Extensions provided for 
access to all operating system functions. 


Z-80 FORTH for CP/M® 2.20rMPIM ....... 0... 0c cece cence eee eee en eeey $ 50.00 
3085 PORTH for CPIMBG .. 02s ev eee reese edececinins pee pha bhad oe eone een ee ae $100.00 
PC/FORTH for!BM Personal Computer .......... 0.0.0 ccc cece eee e eee eenees $100.00 
Extension Packages for FORTH systems 
Software floating point ... 0.0... . ccc ccc cen e eee e eee eeneeennay $100.00 
Intel 8087 support (PC/FORTH, 8086 FORTH only)............. 000 cee eee ceceee. $100.00 
AMD 9511 support (Z-80, 8086 FORTH only) ........ 0.0... ccc ccc cece cece eee $100.00 
Color graphics (PC/FORTH only) ...... 00... cece cece cece cece cence eee eeeeceees $100.00 
Data base management .......... 0... ccc ccc e cece ebb ee eee eee, $200.00 
Symbolic Interactive Debugger (PC/FORTH only) .......... 00.0 cece ee cecceccee. $100.00 
Cross Reference Utility ..... 0.0.0.0. ccc cece eee ene ee eee eee ee. $ 25.00 
Curry FORTH Programming AidS........ 00... ccc cece cece cece eee eeceeee, $150.00 
PC/GEN™ (custom character sets, IBM PConly) .......... 0c cceeccccccccee eee. $ 50.00 


Nautilus Cross-Compiler allows you to expand or modify the FORTH nucleus, recompile on a host 
computer for a different target computer, generate headerless code, and generate ROMable code 
with initialized variables. Supports forward referencing to any word or label. Produces load map, list 
of unresolved symbols, and executable image in RAM or disk file. No license fee for applications 
created with the Cross-Compiler! Prerequisite: one of the application development systems above 
for your host computer. 


Hosts: 2-80 (CP/M 2.2 or MP/M), 8086/88 (CP/M-86), IBM PC (PC/DOS or CP/M-86) 
Targets: 2-80, 8080, 8086/88, IBM PC, 6502, LSI-11, 68000, 1802, Z-8 


Cross-Compiler for one host and one target........... ccc ce eeccceccecec cece ee. $300.00 

Each additional target ....... 0.0... c cence cece cece. $100.00 

AUGUSTA™ from Computer Linguistics, forCP/M2.2..................--..-.-- ee $ 90.00 

LEARNING FORTH, by Laxen & Harris, forCP/M ........... 0... cece eceeec cece ee, $ 95.00 
2-80 Machine Tests Memory, disk, console, and printer tests 

with all source code in standard Zilog mnemonics..............00-0-0--2---2-0022.. $ 50.00 


All software distributed on eight inch single density soft sectored diskettes, except PC/FORTH on 5% inch soft sectored 
Single sided double density diskettes. Micropolis and North Star disk formats available at $10.00 additional charge. 


Prices include shipping by UPS or first class mail within USA and Canada. Overseas orders add US$10.00 per package for air 
mail. California residents add appropriate sales tax. Purchase orders accepted at our discretion. No credit card orders. 


Laboratory Microsystems, Inc. 


4147 Beethoven Street 
Los Angeles, CA 90066 


(213) 306-7412 


2-80 is a registered trademark of Zilog, Inc. 
CP/M is a registered trademark of Digital Research, Inc. Augusta is a trademark of Computer Linguistics 
IBM is a registered trademark of International Business Machines Corp. PC/FORTH and PC/GEN are trademarks of Laboratory Microsystems 
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“THE RESULTS ARE IMPRESSIVE...” 
—Dennis Kitsz, 80 Microcomputing; 12/82 


Langley-St. Clair’s* Soft-View™ 
Replacement CRT’s 


eliminates the strobe, 
flicker and fatigue 
from TRS-80’s: 


I Co)wav(ol6 Rer-le mb] oyelr-le(omvolelmantealicoymuyiie 
the new medium persistence green or 
amber phosphor tube. 


State-of-the-art systems such as IBM" 
and Apple Ill do not use the less costly 
“P4” BGEW display tube because it is 
actually intended for TV viewing and its 
rapid strobes (60 times per second) 
cause irritating eye fatigue. 


No amount of “green plastic” will solve 
this problem. But the new Soft-View 
CRT display tube from Langley-St. Clair 
will. 





€ 
e@:::@ wT) : 


e Available in slow decay Green or medium decay 
“European Amber” (the standard in Europe) 


Wiitclo(cmiyitam Maro P em ece)alilelaam inn) elkaelarelcoeme|tels-mearelt 
Re) (6) 8-96 rohVA 1a 8)--)(0)08 
e Of high-contrast face glass that also stops most 
GAYA ralell-lt(elay 


e Available in frosted glass with extra Anti-Glare 
benefits. 


e Easily installed...comes with pre-mounted 
hardware. 


Ma clarelalccvemce)me)arcuiel| MY cr-lmrelerellatsimantelelelccl@telulares 
defects or tube failure. 


e The finest quality double-dark glass phosphor 
fields to produce dramatic contrast. 


e |deal for Word Processing and Programming, yet 
fast enough for Games and Graphics. 





Lsis Soft-View™ cRTS 












(1 *GN42 Green Phosphor £79.95 

C1) *GN42G Green Phosphor w/Anti-Glare 989.95 

C1) *OR34 Amber Phosphor 989,95 

(1) *OR34G Amber Phosphor w/Anti-Glare 999.95 
also available: 

1 *R22G Red Phosphor w/Anti-Glare 9139.95 

1 #B22G Blue Phosphor w/Anti-Glare = 9139.95 


Plus: 97.00 for packing and UPS Shipping 
$17.00 for Overseas, Parcel Post or UPS Blue Label 
Add Sales Tax where applicable, 
(Inquire about the CRT's we have available for 
many other computer models) 


For MasterCard and Visa Orders only, call 


800 / 221 -] O07 (in N.Y. call 


212/989-6876) 






ley-St. Clair Instrumentation Systems, Inc. 
Jest 24th St., New York, N.Y, 10011 


THIS i$ a 
NEW SOF T~ 
had REPLACEMENT ue 
SOE ¥Y LANGLEY—ST _cLaIR 
TRS-8e MODEL F117 


P 
COMPUTER OPERATORS 


*World’s largest supplier of upgraded replacement CRTs. 
Soft-View, IBM, Apple and TRS-80 are trademarks of LSIS, IBM, Apple Computer and Tandy Corp. 
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LETTERS 





Off to a Good Start 


Dear Editor, 

Your January issue was stimulating as 
usual. Of the dozen or so computer jour- 
nals that arrive every month, Dr. Dobb’s 
is one of the few that I always read. The 
good Dr. Dobb deserves particular thanks 
for introducing me to the Forth language 
several years ago. 

On the whole I disagree strongly with 
Tom Pittman’s January letter. But he 
does have a valid point with regard to 
those interminable listings. Everybody 
has a modem these days. Perhaps you 
should consider putting the program files 
on Compuserve or The Source or an in- 
house dial-up line. Even at 300 baud, it 
sure beats typing. 

I enjoyed Ray Duncan’s discussion of 
the numeric evaluation of trigonometric 
functions. As usual, he is brief and cogent, 
but on one point his trigonometry is a 
little bit rusty. We do not have to extract 
a square root to obtain the cosine. The 
cosine is simply the sine shifted by 90 
degrees. Thus cos(x)=sin(x+90) or for 
radian phreaks, cos(x)=sin(x+PI/2). 

To the entire staff at Dr. Dobb’s, I 
wish a successful and prosperous new 
year. Keep up the good work. 


Sincerely, 

Joseph McDermott 
265 Bogert Road 
River Edge, NJ 07661 


A Slightly Slicker Fix 
for Small-C 
Dear Editor, 

Mr. Macpherson was kind enough to 
send me a copy of his letter to you (DDJ 
#76, pp. 10-11) describing a Small-C 
bug involving continue statements within 
switch statements. He was quick to 
fathom the problem and find a solution. 
After studying his patch, I settled on a 
slightly more efficient and straightfor- 
ward solution. I hope he won’t mind if I 
recommend this patch over his own. 

First, in the function doswitch below 
the call to addwhile (line 184, page 39, 
DDJ #74), insert the line 


*waqptr + WQLOOP - WQSIZ) = 0; 
Then change the following functions to 
read as shown. Modified lines begin with 


a # character. 
(page 42, DDJ #74) 
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dobreak() { 
it *ptr: 
# if ((ptr=readwhile(wqptr))==0) 
return; 
modstk ((ptr[WQSP] ), NO); 
jump(ptr[ WQEXIT] ); 
+ 


docont() { 
int *ptr; 
ptr = wqptr; 
while (1) { 
if ((ptr=readwhile(ptr))==0) return; 
if (ptr[ WQLOOP] ) break; 
a 


Ht Hk Ht Fk Ht 


modstk((ptr[ WQSP]), NO); 
jump(ptr[ WQLOOP] ); 
+ 


(page 45, DDJ #74) 


delwhile() { 
# if (wqptr > wa) 
waqptr=waqptr-WQSIZ; 


readwhile(ptr) int *ptr;1 
if (ptr <= wq){ 
error(“‘out of context’’); 
return 0; 
} 
# else return (ptr-WQSIZ); 
+ 


This will compile with the original 
compiler, so those bringing it up for the 
first time with this patch should have no 
problem. 

The response to my article has been 
most encouraging. I was surprised to find 
that a number of well known microcom- 
puter companies are using the little com- 
piler. I am looking forward to seeing 
more software contributions written for 
Small-C. 


tt Fk + 


Sincerely, 

J. E. Hendrix 

Rt. 1, Box 74-B-1 
Oxford, MS 38655 


Augusta Short Circuits 
Dear Dr. Dobb, 

I was very pleased to see the article, 
“Augusta,” by Edward Mitchell. Ada™ is 
unfortunately “doomed to succeed,” so it 
is good to see that those of us who live on 
small machines will be able to see all the 
reasons why it is being panned by such 
notables as Hoare (“The Emperor’s Old 
Clothes,’ Communications of the ACM, 
Vol. 24, No. 2, February 1981). I will also 
be interested in seeing a compiler written 
in BASIC, of all things. Unfortunately, 








Mr. Mitchell left out one of the most 
useful features of Ada, the package. 
However, Mr. Mitchell states that the 

“short circuit’? conditionals of Ada are 
unusual. I beg to differ. Many modern 
languages, such as C and LISP, support 
short circuit evaluation of conditionals. 
Most languages (including, notably, Pascal) 
leave the question of whether condition- 
als short circuit up to the implementor. 
In fact, one of the popular Fortran 
compilers for the IBM 370 would test 
Mr. Mitchell’s example [if (n<>0O) and 
(j/n=1) then] by testing whether or not 
j/n=1, and if that were false, ‘‘short cir- 
cuit’ the test n<>0. This state of affairs 
means that the defensive (i.e., smart) 
programmer will act as if things will not 
be short circuited, and also not put state- 
ments with side effects in conditionals, 
just in case things are short circuited. Af- 
ter working with such things, it is truly 
enjoyable to use something which lets 
you know what’s going on — whether it 
be. C, LISP, or Ada. 

Mike Meyer 

Box 1749 

Norman, OK 73070 


Compliments for Kossow 


Dear Dr. Dobb, 

Thanks for presenting Allen Kossow’s 
68000 cross-assembler. Mr. Kossow has 
done an excellent job of managing the 
large instruction set and numerous ad- 
dressing modes of this new processor. 

In the past I have made use of system 
software listings provided by the doctor. 
This time, however, because of the immi- 
nent arrival of a 68000-based develop- 
ment system at my workplace, I took 
advantage of Mr. Kossow’s offer. Twenty- 
five dollars is a reasonable copying fee in 
my opinion. 

I was pleased to find that the single- 
density RT-11 diskette contained an exe- 
cutable file in addition to the Fortran and 
Macro source files. Because of this, I 
immediately set to testing. Five problems 
were discovered using examples from 
68000 Assembly Language Programming 
by Kane, Hawkins and Leventhal (Os- 
borne/McGraw Hill, 1981). 


The first hitch was an illegal instruc- 
tion trap encountered when run on a 
PDP-11/04. It was traced to the Macro 
routine file, specifically, the ASH instruc- 
tion in routine GETBIT. Replacing this 
One instruction with four (4) ASR RO 
instructions cleared things up nicely. If 
you are using a DEC processor with EIS 


eee 
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NEW! M-68000_ 
SINGLE BOARD COMPUTER 


FEATURES: 


16 bit Motorola 68000 CPU operating at 5 MHz or 10 MHz, 20K of on 
board fast static RAM, 16K bytes of on board EPROM space, 7 
autovectored interrupts, 3 memory/device expansion buses, 2 serial 
communication ports (RS-232 C), 16 bit bidirectional parallel port, 
5-16 bit counter /timers with vectored interrupt and time of the day 
clock. On board monitor allows to download and debug programs 
generated on APPLE II, TRS-80 and CP/M using our M68000 Cross 


Assembler. 


PRICE: 


M68K Bare board with documentation..................... baa ceeean ; 
M68MON monitor & mapping PROM’s................. pisieaiaitinanie 


M68000-6 CPU 
M68K Parts Kit 
M68000 Cross Assembler 


M68K Documentation only......... 


Shipping & handling (Domestic)....$ 


(foreign)....$ 15.00 


CALIFORNIA RESIDENTS ADD 6% TAX 


Educational 


Microcomputer 


Systems 





DEVELOPME! 


GTEK WV 





Microprocessor based intelligence for ease of 
use and interface. You send the data, the 
7128 takes care of the rest. 

RS-232 interface and ASCII data formats 
make the 7128 compatible with virtually 
any computer with an RS-232 serial inter- 
face port. 

Auto-select baud rate. 

Use with or without handshaking. 
Bidirectional Xon/Xoff supported. 
CTS/DTR supported. 

Devices supported as of DEC 82. 

NMOS NMOS CMOS EEPROM MPU’'S 
2758 2508 27C16 5213 8748 
2716 2516 27C32 X2816 8749 
2732 2532 C6716 48016 8741 


2732A 2564 27C64 8742 
2764 68766 8751 
27128 8755 8755 


Read pin compatible ROMS also. 
Automatic use of proper program voitage 
based on type selected. 

Menu driven eprom type selection, no per- 
sonality modules required. 

(40 pin devices require adapter) 

INTEL, Motorola and MCS-86, Hex formats. 
Split facility for 16 bit data-paths. Read, pro- 
gram, and formatted list commands also. 
Interupt driven type ahead, program and 
verify real time while sending data. 
Program single byte, block, or whole eprom. 
Intelligent diagnostics discern between 
eprom which is bad and one which merely 
needs erasing. 












Circle no. 5 on reader service card. 








P.O. BOX 16115, IRVINE, CA 92713-6115 


(714) 553-0133 










/SOFTWARE 


AMMER 


@ Verify erasure and compare commands. 

® Busy light indicates when power is being ap- 
plies to program socket. 

@ Complete with TEXTOOL zero insertion 
force socket and integral 120 VAC power 
supply. (240 VAC/50HZ available also) 

@ High Performance/Cost ratio. 

eee Model 7128 PRICE $389.00 eee 


MODEL 7128 SOCKET ADAPTERS 

MODEL 481 allows programming of 8748, 

8749, 8741, 8742 single chip processors. 
Price $98.00 


MODEL 511 allows programming the 8751, 
Intel's high powered single chip processor. 
Price $174.00 


MODEL 755 allows programming the 
8755 EPROMI/IO chip 
Price $135.00 


MODEL 7128/24 - budget version of the 
7128. Supports 24 pin parts thru 32K only. 
Upgradable to full 7128 capacity. 

Price $289.00 


Non-expandable, very low cost models avail- 
able for specific devices. 

MODEL 7128-L1 for 2716 only $149.00 
MODEL 7128-L2 for 2732 only $179.00 


Also available from stock: 

Eprom Erasers UVP model DE-4. . $78.00 
Avocet Systems Cross Assemblers $200.00 
RS-232 Cable Assemblies ...... $25.00 
Programmable Devices.......... call 
Complete development systems . $3240.00 


Post Office Box 2389 


nd, Mississippi 39576 
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Star Micronics GEMINI-10 


$419.88 ups DELIVERED 


@ 100 characters per second, bi-directional, logic-seeking printhead action 
(48 lines/min.) with 2K print buffer, expanable to 4K on-board 

@ 9 x9 matrix produces proportional, 10, 12, 17 cpi with true descenders, 
double width, double strike, italics, & special graphics characters 

@ 120 x 144 hi-resolution dot-addressable graphics matrix 


@ Subscripts, superscripts, underlining, backspace, plus 2 
character ROM, perf skip, vert/horz tabs 


K user-programmable 


@ Friction/tractor standard; handles 3-part forms (8:5”) 


Anadex DP-9500A 
Anadex DP-9501A . 
Anadex DP-9629A 


$1459.88 
$1459.88 
$1549.88 


$829.88 
_. $949.88 
. $1649.88 
. $2324.88 


_. $499.88 


Centronics 122-1 
Centronics 129-3 
Centronics 352 

Centronics 353.. 


C. Itoh Prowntter 

W/RS-232C . . _. 

C. Itoh Prowriter 2 
W/RS-939C 

Cltoh F 10 Starwriter, 40 cos 
Paralle! or RS-239C 

C.ltoh F-10 Printmaster, 55 cps 

Paralle! or RS-239C . . $1799.88 
F-70 Tractor $289.88 


Daisywriter 2000. _. $1089.88 
Daisywriter Tractor _. $149.88 
Daisywriter Cable... .. $49.88 


$1269.88 
$1969.88 
_. $2694.88 
_. $314.88 


_. $469.88 


$679.88 
$1104.88 
_ $1339.88 
$1459.88 
$1539.88 
$1269.88 


Diablo 620 
Diablo 630 . 
Diablo 630 KSR 
630 Tractor . 


DMP-85 Pnnter 


IDS Microprism 

IDS Prism 80 

Prism 80 w/graphics ._.. 
Prism 80 w/sheetfeed 
Prism 80 w/4-color 

IDS Prism 132 

Prism 132 w/graphics $1339.88 
Prism 132 w/sheetfeed $1459.88 
Prism 132 w/4-color ....... $1699.88 


Microline 80 

Microline 82A 

80/82A Tractor 

82A Roll Paper Holder 

Microltie 642A. 6.6. ke, 
B2A/83A Okigraoh ROM 
Microline 84 w/graphics & tractor 
Parallel 200 cps. . 

RS-232C, 200 cps 


NEC PC-8093A . 
NEC 3510 


Qume Spnnt 9/45 


Smith Corona TP-1.......... $599.88 
10 or 12 cpi, parallel or RS-232C 


CALL FOR PRICES on Epson, DIP, MPI, 
Datasouth, & other printers. 


Hayes 300 Baud. . 
Hayes 1200 Baud 
Hayes Micromodem-ll....... 
ESO 


Novation Apple Cat 1200 .... 
Novation Apple Cat 300 
Novation 1200 Upgrade 
Novation Auto Cat 300 
Novation Auto-Cat 1200 
Novation Cat 

Novation D Cat 


Signalman Mark 1 





Monitors, cables, IBM PC & Apple/Franklin hardware & software also 


available. Call for more information. 


information & Orders 


(603)-673-8857 


Orders Only: (800)-343-0726 
NO HIDDEN CHARGES 


FREE UPS shipping on all orders—No extra charge to use credit c 


ards—All equipment 


shipped factory fresh with manufacturers warranty-COD orders accepted ($10 fee) 
No purchase orders accepted—No foreign or APO orders accepted— Minimum $50 per 
order—This ad prepared in November: prices subject to change 


HIGH TECHNOLOGY AT AFFORDABLE PRICES 


THE BOTTOM LINE 


MILFORD NH 03055-0423 


Circle no. 7 on reader service card. 
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Each $24.95 
Both $39.95 


Please include $2 postage and handling with each order. California residents 
include 6% sales tax (6%2% in L.A. County). Indicate 5%” or 8” disk, single 
or double density, single or double sided, soft, 10 or 16 sectors. Call or write 
for complete catalogue with challenging word games like ADVENTURE and MasterCard 
STAR TREK ADVENTURE and other entertaining and useful programs. Our 
offices are at 2463 McCready Avenue, Los Angeles, CA 90039. Our 


telephone number is (213) 661-2031. 


CALIFORALA DIGITAL ENGINEERING 
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Circle no. 8 on reader service card. 
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(Extended Instruction Set) like an LSI- 
11/23 or LIS-11/34, then this change is 
unnecessary. 

The second problem showed up as a 
reversal of the source and destination reg- 
isters in all ADDX, SUBX, ABCD, and 
SBCD instructions. A fix is as follows: 


Replace these three lines in subroutine 
PRCESS 


1910 IF(OPIEA.EQ.5) 
OPSKEL=OPSKEL+8 
OPSKEL=OPSKEL+OP2DA 
OBJBUF(1)= 
OPSKEL+(OP1DA*” 1000) 


by inserting these three lines 


OPSKEL=OPSKEL+8 
1910 OPSKEL=OPSKEL+OP1IDA 
OPJBUF (1)=OPSKEL+ 
(OP2DA*”’1000) 


The third bug prevented any MOVE 
instruction from being assembled as 
MOVEQ (quick move). A fix follows: 


Replace these four lines in subroutine 
PRCESS 


IF (IMODE.NE.3)GOTO 304 
IF (OPNWRD(3).EQ.0) GOTO 
301 


IF (OPNWRD(3).EQ.-1) GOTO 


301 
GOTO 304 
SUL) 2°. 
by inserting the following three lines 
IF (IMODE.NE.0) GOTO 304 
IF (OPNWRD(3).EQ.0) GOTO 
301 
IF (OPNWRD(3).NE.-1) GOTO 
304 
S04. 


This causes the assembler to optimize a 
MOVE immediate instruction to the 
MOVEQ form only if the datum size is 
defaulted and the datum is in the legal 
range for MOVEQ(-129 < arg < 128). For 
a consistent treatment of quick mode in- 
structions, the following change should 
be made to make ADDQ and SUBQ oper- 
ate in the same manner: 


insert this line into PRCESS 
IF(IMODE.NE.0) GOTO 536 
in between these two existing lines 


IF (OPNFLG.EQ.1) GOTO 536 
and 


IF (OPNWRD(2).GE.1.AND. 
OPNWRD(2).LE.8) GOTO 550 
oo Ep 


Problem number four prevented 
assembly of the CMPM form of the CMP 
instruction. A fix is below: 


Replace this line in subroutine PRCESS 


400... 
IF ((OP1EA.EQ.5) .AND. 
(OP2EA.EQ.5)) GOTO 480 


by this new line 


IF ((OP1EA.EQ.4) .AND. 
(OP2EA.EQ.4)) GOTO 480 


A fifth problem was noted in assem- 
bly of the LEA instruction where the 
addressing mode is register indirect with 
index. An example is LEA -1(A0,D0.W), 
A1.I have not had an opportunity to ana- 
lyze the problem any deeper. 

My compliments to Allen Kossow. A 
piece of software of this size seldom ap- 
pears with so few glaring errors. Keep up 
the good work. 

Sincerely, 

Steve Albrecht 

Tracor Northern Instruments 
Middleton, WI 53562 


Dear Editor, 

I have an ulterior motive for writing. 
I must have one of Al Kossow’s (DDJ No. 
68, ““Multi-68000s in a Personal System’’) 
computers. 

I’ve written to Mr. Kossow to express 
my enthusiasm. A project like his is an 
ambitious one so I didn’t really expect an 
answer. 

Yes, I know he said any future devel- 
opments would be published in DDJ. The 
point of this letter is to urge DDJ to pub- 
lish the info... 

Anxiously awaiting each and every 
ISSUE ii: 

Judd Ellmers 
1A Rolling Ridge Road 
Montvale, NJ 07645 


Editor’s note: We hope to do an update 
soon. In the meanwhile, can any DDJ 
readers help us out on multi-68000s? 


More on Graphics Algorithms. . . 


Gentlemen: 

The vector generation algorithm pub- 
lished in the December issue of DDJ is 
not new. Several years ago, I purchased a 
Houston Instrument plotter and the 
manual included an implementation in 
BASIC of what was essentially that algo- 
rithm. I found the algorithm described in 
one of the BYTE Books called Bits and 
Pieces. There it was credited to somebody 
at IBM. Most implementations reduce the 
calculation per step even further than 
Mr. Michalski’s version. Usually F is ini- 
tialized to 2*DY-DX and in the loop, F is 
tested relative to zero as the first step of 
the loop. If F is negative, only X is incre- 
mented before the new point is plotted 
and F=F+2*DY is calculated. If F is zero 
or positive, both X and Y are incremented 
before the new point is plotted and 
F=F+2*DY-2*DX is calculated before- 
hand so only one addition per step is 
necessary to update F. Here I have used 
the same notation as Mr. Michalski except 
for using D instead of delta. Well, it is a 


good idea no matter how many times it is 
reinvented. 


This is the simplest and probably the 
most useful of what I call the where-do- 
we-go-from-here algorithms. The idea is 
that the choice of the next point to be 
moved to or set is limited to one of the 
eight points next to the last point. This 
limitation may be inherent in the graphics 
device or imposed to insure the drawing 
of a continuous line. Knowledge of the 
general direction of the curve is used to 
limit the choice to two of these points, 
and some easily calculated error function 
is used to choose between the two. So 
far this straight line algorithm and the 
one for doing circles and arcs are the only 
ones for which I have worked out the de- 
tails and successfully implemented. I did 
both of them in BASIC first and then 
finding this a bit slow, I resorted to a 
mixture of Fortran and assembly lan- 
guage. With that I was able to keep my 
plotter going at close to its maximum 
speed. Although I have not yet worked 
out the details, it appears that these 
techniques could be extended to any of 
the conic sections, but at a price of in- 
creasing complexity and decreasing speed. 

Another graphics related matter that 
I have been planning to write you about 
is related to Mr. Taylor’s ellipsoid prob- 
lem which appeared in the Clinic. I was 
one of those that sent in a solution to his 
problem. Ever since his response to the 
solutions appeared in the August issue, I 
have been thinking about it and I have 
reached the conclusion that he posed the 
wrong problem. He talks of perspective 
projection and yet the problem that he 
posed was projection parallel to the Z 
axis which is orthographic projection. I 
have worked out the solution for perspec- 
tive projection, but since it involves even 
more calculation than the solution for 
orthographic projection, which he found 
to involve too much calculation for his 
purposes, it probably will be of little use 
to him. 

Sincerely yours, 

David S. Tilton 

27 Pennacook Street 
Manchester, NH 03104 


... And Variations on Michalski’s 


People: 

I was interested in your simple vector 
generation algorithm in the December 
DDJ — interested because I had devised 
the same underlying algorithm for use in 
a mailing list application. 

A businessman has a mailing list with 
90 names (for example). He wishes to 
send some promotional material, but to 
only 20 people (small budget, maybe). 
Therefore he wants a way of extracting 
20 names from the list of 90 in an even 
distribution. 

Hopefully, you can see that selecting 
20 names from 90 is a similar problem to 
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drawing a vector which rises 20x points 
and runs 90y points. 

The algorithm used in the mailing list 
application was: Let y run from 0 to 89, 
and set x=y*20div90. X will increase 
slowly from 0 to 19. For each input name 
(y), print it out only if the value of x has 
increased from the previous y (integer 
arithmetic). In Pascal: 


var 
xy; xprey + integer: 
begin 
xprev :=-1; 
for y := 0 to 90-1 do begin 
getname; 
x = y * 20 div 90; 
if x <> xprev then 
putname; 
xprev := x 
end 
end 


I hope this shows the idea. Obviously 
a useful program would use variables in 
place of 90 and 20, and probably would 
have to make an initial pass through the 
list to count how many names are there. 
The flowchart published in the article 
uses more code but is more efficient be- 
cause it eliminates the multiply and 
divide operations. 

An amusing variation: The above pro- 
gram tries to print 20 names, but if the 
original list only had 8 names, it would 
only print 8. By replacing the “‘if’’ state- 
ment with a “‘for’’ loop, you can guaran- 
tee 20 printed names no matter how 
small the mailing list is (provided it’s not 
empty). 


getname; 

x = y * 20 div 8; 

for xprev := xprev to x-1 do 
putname; 

xprev := x 


With this program, each of the 8 
names is printed two or three times to 
give an output list of 20 entries. 

Yours truly, 

Peter Raynham 

10 Camrose Crescent 
Scarborough, Ontario 
Canada M1L 2B6 


Forth Cosine with 8087 


Dear Editor: 

The purpose of this letter is twofold. 
(1) I wish to share with your readers my 
enthusiasm toward Forth Inc.’s method 
of structuring 8087 floating point in their 
Forth for the IBM PC. (2) Since trigono- 
metric functions are not included in Poly- 
forth (at least not in the version I own), I 
would like to put into public domain a 
program (see Listing 1, this page) for cal- 
culating cosines. Besides being fast (470 
microseconds) and accurate (16 digits), 
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the algorithm I developed is unusual be- 
cause it uses an unspecified 8087 feature 
and involves no conditional branching. 
Thus, the algorithm should be of interest 
to non-Forth programmers. 

Forth is not a popular floating-point 
language and has no floating-point stan- 
dards. Traditionally, floating-point num- 
bers have been stored with integers on the 
parameter stack which resides in memory. 
This is somewhat inefficient since there 
are no operations between the two 
numerical types and one tends to ob- 
struct the other, thereby requiring exten- 
sive stack manipulation in a floating-point 
program. 

Consider the 8087, a chip with a 
stack of its own comprised of eight 80-bit 
registers that can perform most internal 
operations faster than a 64-bit number 
can be transferred to memory. Indeed, 
the 8087 can swap two 80-bit numbers 
on its stack faster than the 8088 can swap 
two 16-bit numbers in memory. Clearly, 
with the 8087, it would be a serious 
waste of time to automatically transfer 
8-byte floating-point numbers to a mem- 
ory stack and then back again between 
operations. 

Forth Inc. has made a rational devia- 
tion from tradition by simply using the 
8087 stack as an extra Forth stack. It 
wouldn’t surprise me if this chip-language 
combination is unbeatable among micro- 
computers for speed. To test my hypoth- 
esis, I invite benchmark challenges, par- 
ticularly from owners of 68000-based 
computers. I only require that the program 
be a practical 64-bit number cruncher 
such as matrix multiplication and not an 
abstraction. 

Regarding the cosine algorithm, from 
the angle, V, the 8087 instruction FPTAN 
returns the sides of a right triangle, X(V) 
and Y(V). Intel literature states the re- 
striction, “O<V<PI/4’; however, I 
discovered that my 8087 was completely 
accurate in the range -PI/2<V<PI/2. 


Using this feature, I came up with the fol- 
lowing algorithm that is best described in 
equation form: 


Let U = Angle 
S1*[FABS( FABS[ FPREM 
(U,2*P1i ) ] - PI )-PI/2] 
(U,2*PI ) ] -PI)-PI/2 ] 
COS(U) = Y(V) / FSQRT( X(V)*X(V) 
+ ¥CVIFYCV) 


Notice that multiplying by S1 keeps 

V from exceeding its limits. I have includ- 
ed an implementation of this algorithm 
using Polyforth assembler mnemonics. 
The sine function can be obtained by sim- 
ply subtracting PI/2 from U. 

Sincerely yours, 

Steven A. Ruzinsky 

2110 S. Austin Blvd. 

Cicero, IL 60650 


(See Listing 1 below) 


Subscription Glitch 


Dear Doctor Dobb, 

I’m sure you have heard stories like 
mine many times before, but I would be 
grateful if you eyeballed my output. 

I used to be a small microprocessor 
with very underdeveloped software. When 
I went to the beach, big strong mainframes 
would kick sand in my face and attractive 
young minis would laugh at me. 

How delighted was I when I dis- 
covered what a dose of DDJ did for my 
development! So wonderful were the re- 
sults, that it is little surprise that I soon 
became addicted to monthly shots of 
DDJ. Naturally when my subscription re- 
newal became due, I raced down to the 
bank at my fastest baud rate, obtained a 
bank cheque in U.S. dollars for two years 
(yes, I wasn’t going to risk cold turkey), 
and sent it off airmail immediately. 

Can you imagine my alarm when 
some months later another renewal notice 


Listing 1. 
8087 Cosine Routine in Polyforth. 
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arrived! Of course I straightaway photo- 
copied the bank cheque duplicate and 
sent it off with an impassioned plea. 

Now (fear and trembling) I have been 
told my subscription has expired because 
the cheque was not received. Bless my 
chips, what will I do? I know it cannot be 
a computer error because we never err. 
To make matters worse, my bank tells me 
it will be several weeks before they can 
find out whether the bank cheque was 
banked at the other end. 

Please, Doctor Dobbs, help a poor 
deprived little processor whose last shot 
of DDJ was November 1982! Please scan 
your files tc make sure whether my 
cheque has arrived. If my bank tells me 
the cheque is lost, I will send another as 
fast as I can. 

Yours faithfully, 


(signed for Neil’s computer by) 


Dr. Neil Trezise 

Wild Dog Creek Road 
St. Andrews 

Victoria 9761 
Australia 


Ed. Note: Those of you who have experi- 
enced similar problems, please bear with 
us. During our recent change of data 
services, a number of our sheep became 
separated from the fold. We are working 
hard to get this corrected, but unfortu- 
nately these things take a bit of time. 
Sorry for the inconvenience. Just let us 
know (most of you already have) and we 
will make the correction. 


Standard Deviation 
Hi guys, 

Good to see that C compiler is pro- 
gressing; nothing better than a good free 
software. I’d like to say a few things 
about C pertaining to portability (a very 
important issue). 

I’ve been seeing more and more C 
code that does not follow the guidelines 
published by Kernighan & Ritchie (The C 
Programming Language). That’s a real no- 
no. If everyone adheres to those guide- 
lines with care, C will remain a very por- 
table language. J. E. Hendrix is guilty of 
the crime himself in his December article. 
Since publication of the compiler imple- 
mentation and its libraries isa restatement 
of the standard, it should be done with 
careful attention to detail. 

Hendrix describes several functions 
in his auxiliary library which do not main- 
tain the spirit of the K & R teachings (the 
C bible and de facto definition). His dtoi, 
decimal to integer, conversion function 
sounds almost the same as K & R’s atoi 
(ASCII to integer). Doesn’t matter which 
name sounds better — atoi is the standard. 
Also atoi only requires one parameter; 


(Continued on page 90) 
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Aztec C! 


C COMPILERS—COMMON FEATURES: 
© UNIX VER 7 compatibility * standard float, double, and long support ¢ run time library with full 1/O 
and source ® fast compilation and execution ¢ full language. 


AZTEC Cll CP/M (MP/M) | $199 


® produces relocatable 8080 source code ® assembler and 


inker supplied © optional M80 interface « 


SID/ZSID debugger interface ¢ library utility © APPLE requires Z80 and 16K card 


AZTEC C][ APPLE DOS $199 
¢ relocating assembler supplied * APPLE SHELL ® VED editor ¢ library and other utilities 
* requires 16K card 
C86 IBMPC MSDOS CP/M-86 $249 
® directly produces 8088/8086 object code ® linker supplied 


Manuals—$30 ORDER BY PHONE OR BY MAIL-Specify products and disk format 


MANX 


CP/M FORMATS: 8” STD. HEATH, APPLE, OSBORNE. NORTHSTAR. 


software systems 
Box 55, Shrewsbury, N.J. 07701 (201) 780-4004 


ams 


OUTSIDE USA-Add $10 In NJ. add 5% sales tax 


Circle no. 10 on reader service card. 


Call it 
APPLE juice 


The most complete package 
available for teaching PASCAL on 
the Apple Il or the Apple I! Plus: 


PASCAL FOR THE APPLE 


lain MacCallum, 
University of Essex, England 


the most complete teaching kit to “juice 
up” your apple with PASCAL! 


Combining the benefits of the Apple II/ Apple II 
Plus with the power of the PASCAL language 
offers a wide range of programming possibili- 
ties. Understanding how to program in PAS- 
CAL demands an interesting, appealing new 
text—one that adds juice to the Apple— 
PASCAL FOR THE APPLE, by lain MacCallum. 


DISK WORKS HAND IN HAND WITH TEXT. 
The text, part of the Prentice-Hall Interna- 
tional Series in Computer Science (edited 
by C.A.R. Hoare), actually serves as a com- 
plete learning package. The accompanying 
example-filled floppy disk offers more than 
two hundred worthwhile and interesting exer- 
cises that can be run and studied immedi- 
ately. The floppy—an essential part of the 
package—helps to teach students the basic 
elements of the PASCAL language. These 
expository programs, which concentrate on 
graphics, interact with readers line-by-line 
and provide thorough reinforcement of the 
text's description. 





Add the power of PASCAL to your students’ 
repertoire with the most effective teaching 
package available. Request your examina- 
tion copy of PASCAL FOR THE APPLE today. 


| 
i 
i 
l 
WHAT IS NEEDED: This text assumes your | 
students have access to an Apple II or Apple |! 
Plus accompanied by Apple PASCAL software | 
disks. At least one disk drive is required in i 
addition to the Apple Language Card (expands | 
system to 64K). Two blank disks will also be =f 
required for each student. ' 
Come to the Prentice-Hall booth (#1222) fora | 
demonstration of this exciting new software : 
package. 
Please send me copy(ies) of PASCAL | 
FOR THE APPLE at $24.95. Enclosed find l 
my check___ or money order ___ for 
$ __. lf payment accompanies order, plus 
state sales tax where applicable, publisher will | 
pay all shipping and handling charges. 
| 
| 


Name 
Address 
City/State/Zip ___ 


Mail to: Prentice-Hall, Inc., Englewood Cliffs, NJ 
07632, Attn: Mr. Robert Jordan, Dept. J 195 | 


Booth #1222—West coast Computer Fair | 








ache Ae et Prentice-Hall 
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Do you use your computer? Or does your computer “use” you? Face it, if you're using floppies, your time is being wasted. 
Because a floppy is an inefficient random access storage device. Each time the processor wants to transfer data, it has to wait 
an eternity for the disk to rotate and the head to move. 

So what do you do? Get a SemiDisk, quick. It’s a large capacity semiconductor memory board that is driven by software to 
operate like a disk drive. Without all the waiting. Do everything you'd do on a floppy or hard disk, with no modifications to your 
software or hardware. Two board sizes are available: 512K and 1 Megabyte. (the highest density microcomputer memory 
board in the world) And you can put up to 8 megabytes in a system by adding more storage boards. 

What do you need to use it? Just an S-100 system with CP/M 2.2. Or a TRS-80 Model 2 system with 
CP/M 2.2. Or an IBM Personal Computer. That's it. No special processors, DMA, I/O, or disk controllers are required. Plug it in 
and run the installation program, and you're on your way. Fast! Even better, we supply full source code to the driver software, in 
case you d like to do your own interfacing. 

Best of all, the SemiDisk’s price won’t warp your wallet. Compare specs, cost/megabyte, storage capacity, and 
compatibility with the competition. You'll see that the SemiDisk is a disk emulator truly worthy of the name. SemiDisk has 
battery-backup capability, too. 

Consider our limited warranty: A full year, covering all parts and labor. Consider our liberal 15 day return policy. Price? 
$1995 for 512K byte SemiDisk, $2995 for 1 Megabyte SemiDisk. Both from stock. $10.00 for manual. VISA, Mastercard, COD 
orders accepted. Dealer and OEM inquiries welcomed. (Specify system type and disk format when ordering.) 


Someday, you'll get a SemiDisk. 
Cntil then, you'll just have to......... wait. 


SemiDisk P.O. Box GG 
SYSTEMS  seaverton, oR 97075 (503)-642-3100 


Call (503)-646-5510 for CBBS®/NW, a Semi-Disk-equipped computer bulletin board. NO WA | T NG 
SemiDisk trademark of SemiDisk Systems; TRS-80 trademark of Radio Shack 
TM. 
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You are invited to become a member of the 
ASSOCIATION FOR COMPUTING MACHINERY... 


As one who Is involved with computers, you owe it to yourself to 
join the major technical organization in the field — the Associa- 
tion for Computing Machinery (ACM). Whether your involvement 
is professional or recreational, you have a vital “need to know.” 
ACM, the quintessential computer information source, can fill 
this need through its: 


¢ Jen major journals — you receive Communications of the 
ACM, one of the most respected publications in the field, free 
with your member dues. * 32 Special /nterest Groups (S/Gs) 
— from personal computing (SIGPC) to small systems 
(SIGSMALL) each publishing a Newsletter on a particular 


MEMBER CLASSES 


Voting Member: You must a) subscribe to the purposes of ACM; b) have attained 


professional stature as demonstrated by intellectual competence and ethical 
conduct in the arts and sciences of information processing; and c) have earned a 
Bachelor's Degree or academic equivalent, or have 4 years full time experience in 
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16-BIT SOFTWARE TOOLBOX 


by Ray Duncan 








Cromemco’s Dual CPU 


One of the most pleasant fringe bene- 
fits of starting up a software house is that 
it gives one the opportunity to buy all 
sorts of beautiful new hardware for “‘Re- 
search and Development.” When Cro- 
memco announced their combination 
Z-80 and 68000 “DPU”’ board early this 
year, I was fascinated but wary. The 
board seemed as though it potentially 
could give the same impetus to the 68000 
among personal computer users as the 
Godbout Dual CPU board gave the 8088: 
providing a safe, known development 
environment to fall back on (Z-80 and 
CP/M-80), while giving ready access to 
the power of the 68000 microprocessor. 
However, I was a bit skeptical because 
most of Cromemco’s boards in the past 
have not completely followed the S-100 
bus standard, and were difficult to mix 
and match with components produced by 
other vendors. In addition, Cromemco’s 
software is expensive and incompatible 
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fig- FORTH79 


with standard CP/M application pack- 
ages. Of course, being a computer junkie, 
I ordered the board anyway. 


About three months after I put down 
a deposit, the board finally arrived and 
immediately got stuck on the shelf for 
another two months due to the pressure 
of other work. Finally, during the Decem- 
ber lull, I found time to drag the DPU out 
and look it over. The component is built 
on a typical S-100, silk-screened, multi- 
layer printed circuit board, and displays 
the usual solid Cromemco design and con- 
struction. It contains about sixty integrat- 
ed circuits including the familiar looking 
Z-80 and the monstrous looking 64-pin 
68000. In a departure from Cromemco’s 
previous practice, all components except 
the two microprocessors and three other 
support ICs are wave soldered directly to 
the board instead of being mounted on 
sockets. The board is designated as ‘‘Revi- 
sion E”’ in the silk-screened legend, but it 
still has no less than eight little green 
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wires snaking their way around — this 
leads one to believe that the design of this 
board is not too stable yet. 

The DPU board automatically starts 
up in the Z-80 mode of operation. When 
a 1 is output to port OFFH, the DPU 
switches to the 68000 mode. The first 
time the 68000 is used, it obtains its 
stack pointer from location 0 and its pro- 
gram counter from location 4. To give 
control back to the Z-80, the 68000 
must write a zero to location OFFFFFFH 
(its I/O is memory mapped). Subsequent- 
ly, when either processor resumes execu- 
tion, the contents of its registers and in- 
struction pointer are unchanged from the 
previous invocation. Since there is no di- 
rect communciation between the registers 
of the two microprocessors, information_ 
must be passed back and forth by tempo- 
rarily saving it in memory. Listing 1 
shows how to switch between the two 
microprocessors under software control. 


I can guess what you’re thinking if 


SOURCE SOFTWARE 


A79 Standard FORTH with Double-Number Standard 
Extensions — for any 6502 based computer running 
Micro Technology Unlimited’s Channel Oriented Disk 
Operating System. 


In addition to the inherent capability of the FORTH 
System as a total programming environment, fig- 
FORTH79 unleashes all the powers of CODOS. 


Includes a powerful editor, assembler, utilities and 
demonstration programs — over 100 screens in all. 
Supplied on 8-inch SS/SD soft sectored disk along 
with comprehensive user’s manual. 


$145.00 


Also available .. . 


fig- FORTH79 assembler source listing with higher 
level source for the editor, assembler, utilities and 
demonstration programs. Provides a relatively pain- 
free way to implement a 79-Standard System for 
those who already have, or can write, a disk interface 
suitable for their particular computer. 


$35.00 
From: Mark I Manning 
7611 Autumnal Lane 
Liverpool, NY 13088 
(315) 457-4175 
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Are you tired of using inflexible software which you can’t 
modify? Here’s the source code for a professional-quality, 
CP/M compatible Z-80 assembler which has been designed 
for easy adaptability to a wide variety of user needs. Various 
details of language, such as the maximum length of symbols, 
can be changed by the redefinition of asingle parameter, and 
the assembler’s modular construction allows easy revision for 
use with any other Z-80 DOS or as across-assembler for other 
byte-oriented processors. 


The complete listing is contained in a 200-page manual along 
with a full tutorial explaining top-down how an assembler 
works. Important algorithms such as recursive processing of 
nested conditionals are illustrated in pseudo-code, and afinal 
chapter discusses the various ways in which the assembler 
Can be revised to suit individual preferences. 


The assembler as given accepts standard Z-80 mnemonics, 
allows the source program to be split up into multiple input 
files, and prints a sorted symbol table. It contains 19 pseudo- 
ops, including XLIST, TITLE, and nested conditionals with 
ELSE. It runs under CP/M-80 and produces an object file in 
standard Intel hex format. 


Manual containing complete source 
listing and tutorial - $25, ppd. in U.S. 
(Source also available on standard 
format 8” SSSD diskette) 


KING SOFTWARE 


P.O. BOX 208 
RED BANK, N.J. 07701 
(201) 530-7245 


NJ residents please add 6% sales tax 
CP/M is a trademark of Digital Research 
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you've read this far. In these times of 
economic unease, few of us can afford to 
junk our 8-bit systems and shell out sev- 
eral thousand dollars for a complete com- 
plement of Cromemco boards including 
memory and disk controller in order to 
get started with a workable 68000 system. 
But I have good news for you. I was tipped 
off by a friend that the Dual CPU board 
was “more S-100 compatible’ than pre- 
vious Cromemco products. In a moment 
of rashness, I set the jump-on-restart ad- 
dress for the Z-80 to 0000 by cutting two 
jumpers, dropped the DPU board into my 
Compu-Pro Z-80 system, and turned on 
the power. The system booted up and ran 
perfectly! 

This opens up enormous possibilities 
for experimentation with the 68000. You 
can do all of your software development 
with a familiar CP/M-80 support struc- 
ture for disk and terminal I/O. When 
CP/M-68K becomes available, you can 
write your initial BIOS and cold boot 
loader under CP/M-80, just as many of 
you did when the Godbout 8085/8088 
CPU board was first released. 

By the way, you will find 68000 As- 
sembly Language Programming by Gerry 
Kane et al. to be an extremely useful re- 
ference work as you are getting started. 
This book is devoted entirely to describ- 
ing the instruction set from a program- 
mer’s point of view and is filled with 
helpful examples; it does not waste any 
space describing the hardware — for this 
you can refer to the manufacturer’s liter- 
ature. 

I should note in passing that Compu- 
Pro has also started delivering their 68000 
CPU. It costs only $625 in contrast to the 
$1000 for the Cromemco board; however, 
it doesn’t have the advantage of the on- 
board Z-80. Compu-Pro is also selling a 
stand-alone 68000 Forth system for 
$200, but is not yet delivering the Digital 
Research operating system. 


More on Memory Tests 


Some readers will recall that when I 
reviewed the Microsoft RAMCARD for 
the IBM Personal Computer, I had some 
critical things to say about the memory 
test program that came with it. At the 
time, I was just a bit disgusted with the 
program’s style of interaction with the 
operator but had no reason to find fault 
with the actual usefulness of the program. 

I must report that the program has a 
much more serious defect than I imagined: 
if the board it is testing has read errors 
causing parity errors, the test program 
crashes completely! Instead of getting the 
dandy display of the error type and loca- 
tion as the manual specifies, the parity 
error causes a hardware interrupt forcing 
transfer to the ROM BIOS, the message 
“PARITY ERROR2”’ is displayed on the 
screen, and the system goes dead. Appar- 
ently the test program does not reset the 
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Listing 1. 
Switching between the Z-80 and the 68000 on Cromemco’s DPU board. 
; Switching on the 68000 
hl,init 
de,@ 
bc,8 


;move initial values 
;for stack pointer and 
;program counter into 
;locations @ and 4 


; 
aed snow turn on the 68099 
Offh,a : 


Switching on the Z-8@ 
(i/o ports are memory mapped in the top) 
(64 k of the address space on the 6809@) 


move.b #9,@fffLF£Fh 


* * * FEATURING 8 AND 16 BIT SYSTEMS x* * x 


EPSON QX VALDOCS: Extremely user friendly! See review Sept. BYTE. 
HX 80: Notebook-sized battery operated Z 80 computer, up to 256 K RAM, built- 
in hard copy, LCD scrollable screen. 





MASTER MAX: S-100 system, Z-80, INTERCONTINENTAL CPZ48000 single 
card computer with four channels of DMA, dual 8” double density drives, 


CP/M $2,540. 
Options: double sided drives, Winchester, TURBODOS, 2 user, 220v/50hz. 


IMS 8X MULTIUSER SYSTEMS: 2-80, S-100. Each user has own Z-80, 
64K RAM, 2 I/O. TURBODOS multiuser CP/M compatible operating system cuts 
link/edit time in half. Z-80 code. Interrupt driven. 8088 upgrade w/256K RAM has 
been announced. 


TARBELL: Empire systems, Z-80, S-100. 
CROMEMCO: C-10 personal computer w/software package 


8088: COLUMBIA DATA: IBM-PC look alike, multiuser option. 


8086 S-100 SYSTEMS: 
LOMAS: with MS-DOS or CP/M-86. Winchester option. 
SEATTLE: with simultaneous 8” and 5” drives. Will accept IBM/PC software. 


DUAL PROCESSOR SYSTEMS: 
GODBOUT 816 A,B,C: 8085/8088. MP/M 816 allows simultaneous operation of both 
processors. 
CROMEMCO DPU: 68000 and Z 80. CROMIX operating system. 


MAX BOX 8” DRIVE SUBSYSTEMS w/QUMES, SHUGARTS, MITSUBISHI, NEC. 


PRINTERS (dot matrix and LQ): GRAPHICS: 
MICROANGELO GRAPHICS. 
MIRAGE: new from SCION. 
AUTO-CAD Interactive graphics soft- 
ware; for engineers, architects, design- 


$1,695. 


EPSON, NEC, QUME, C.ITOH, IDS, 
FLORIDA DATA, TELETYPE. 


TERMINALS: WYSE, HAZELTINE, 
IBM 3101, TELEVIDEO. ers. 
Voice recognition board for TELEVIDEO HOUSTON INSTRUMENTS 


950. PLOTTERS, DMP-29 


BER 20t le Ue IBM PC ACCESSORIES: Extensive 


MODEMS: U.S. ROBOTICS 1200/300 line including QUADRAM, SEATTLE, 
DC HAYES compatible 8080/8086 EMULATOR (software). 


S-100 MAINFRAMES: 
PARADYNAMICS, ECT, some TEI 12 
slot still in stock. 


IBM 3270: compatible equipment from 
Teletype Corp. Fast delivery! Cost ef- 
fective! 


We have an extensive product line including systems, peripherals, software, 
boards, drives, consulting services. Write or call for detailed specifications. 
We have knowledgeable technical staff. 


Overseas Callers: Phone (212) 448-6298 
WE EXPORT TWX 710 588 2844 or Cable: OWENSASSOC 


JOHN D.OWENS Associates, Inc. 


12 Schubert Street, Staten Island, New York 10305 
(212) 448-6283 (212) 448-2913 (212) 448-6298 
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~ = New items 


ASHTON-TATE 
dBASE Il... .call for price ($477?) 


CP/M® 


ARTIFICIAL INTELLIGENCE® 


Medical(PAS=-3) =. ...5.cu 5 $849 
Dental (PAS-3)............$849 
ASYST DESIGN®/ FRONTIER 
Prof Time Accounting...... $549 
General Subroutine. ......$269 
Application Utilities........ $439 
DIGITAL RESEARCH® 
CP/M 2.2® 
NOmNStAb Sti es ued $149 
TRS-80 Model II 
{20 a [) eatery See nme et OY $159 
MICEODONIS! Suey. Fo sot TAO 
CP/M-Intel MDS.......... $135 
PL /1eBO nh cee cies $449 
BIER) co ert Le gee $179 
MAG 42 ses ea Bet $ 85 
RIMAG fae et cg breed, Oe $179 
CS 11 [ip earns? ge re, SGN td $ 65 
PESO. ate eters 2 No tea $ 90 
7 LS MON cre ame Hee | alle Reg ome ai 4 $ 90 
DeSpool es oe Lee $ 49 
GB<BOV eet Sees c be $459 
CBasic-2 $ 98 
Link-SO: er ent ts Set $ 90 
FOX & GELLER 
QUuIGKSGreeNn: .ohe5 fp os PASS 
QICKCONE stk ei... oe Bee $265 
CO cee ce Bae he Beat Ss $ 65 
MICRO-AP® ° 
Sa ASIOR ee Anan, eae oe $269 
SelectomlVe use TSR ee $295 
SeElectGny 2 ease $495 
MICRO DATA BASE SYSTEMS® 
HB BSreia pce ties ee $269 
MD BSS aa Sak see ee. $795 
DRS or QRS orRTL....... $269 
MBpBSIPRG: fot. 6. Wits $1999 
MICROPRO® 
WordStarirc Po od ee AE $279 
Customization Notes...... $449 
Mail-Merge.............. $ 99 
WordStar/Mail-Merge...... $369 
DalaStAl ier ee a ee $249 
WordMaster.............. $119 
SUDETSOMNE oc. auch crete ae $199 
“Sf OTE ASS. &: | seekeeeen MaMa bac enh a Sop! $139 
Gale Stare xis oink os oo ee $259 
MICROSOFT® 
BASIC“S03 2." eee $199 
Basic \Gomipileric. ae ee $329 
Fortran=00 2 oe. Ae eae $349 
Cobol-80).. 32 624.400 2 $589 
NESOR Gs... ee erent ee a 2 $175 
MaCrG-SOr in MON ET $144 
ECE GOM Ee oe = Pon Sar a oe $ 84 
MuSimp/MuMath......... $224 
Muliso-BOal =). oteck. 2. $174 
FPL::Bus:. Planner: a... $595 
ORGANIC SOFTWARE® 
TOXEVV ter TT bene a8 oe? ott hee $111 
DateBook Uli..as. ean oes $269 
Milestoneie. tn ei roe $269 
OSBORNE® (McGraw/ Hill) 
General Ledger........... $ 59 








SAVE $255 ON PRODUCTIVITY PAC #3! 


Everything you need: a wordprocessor, spreadsheet and 
database. And a phenomenally low, low price! 


Final Word 
Plannercalc 
Condor | 


Retail 
$300 
$ 99 
$295 
$694 


SPECIAL COMBINATION PRICE: $439 


Regular 
Discount 


$270 
$ 50 
$275 
$595 


Offer good to the end of the month of publication of this 


magazine. Call for our other PAC prices. 





$4500 


.$270 


.. . $600 


. $850 


.. .$429 


.$315 


...$175 
.. .$349 


.$670 


.. .$355 
Re Be i | 


.. .$894 
...$595 
ma Yh) 
.. $535 
.. $445 


. $179 


. $199 


...$289 
.. .$269 


. $349 


.. $495 
et ee 
...$145 
.. .$385 


...$149 
...$149 
...$149 


. $139 


...$ 89 


Acct Rec/Acct Pay........$ 59 4 Moduless... 2 ¢ Pal c 
Fayroliw/Costc.. 25... ue k $ 59 PS heer ns Bass fv eksqtictits 
PSs aie ae an sth Nate $129 ® 
All's + GBASIG-2..... . 00 ove. $199 eer 
Enhanced Osborne ers’ 605. kn 
(vandatta) Sosa ae OO 
(Includes CBasic)......... $269 hehinalwordic to 
PEACHTREE® WHITESMITHS® 
General Ledger...........$399 _&, Compiler 2 e232 3 
Acct Receivable.......... $399 Pascaltinel 1. i. tc 24... 
Acct Payable............. $399 “PASCAL’ 
TNA |S an ARI os $399 Vb Pascal/MT+ a ee 
JRL. eh ate ae $399 Gommlers 8. . otk 
yi CE eee $399 TG Sse tae 
Property: Mat cs... 6 os.5 es $799 Restate sf ge ok 
CPA Client Write-up....... $799 Pascal/UCSD40......... 
P8 Version........... Add $234 Pascal/M._... aw sk 
2h ay Ce OF al ag AL #3 .$269 Tiny Pascal ; 
aot Bek ON ee TORS Sat cele ee ee ie a 
wilsas ess 10% DATA BASE” 
STAR COMPUTER SYSTEMS PI.) os ee eee 
~ G/L, A/R, A/P Pay........$ 349 2G ho | en Ae eine 
PY ee os Ree ee 1128: 4% CONGOR TD. . 5 ss. oe sss 
Legal Time Billing........$ 849 WERE go. os i aioce wales 
Property Mngmt..........$ 849 PER aerts n Bnn} a 
STRUCTURED SYSTEMS® Ect ll 
Business Packages, v SpeliGuard. 00222202, 
Call for Price Pamcntextiic ils nx: 
SORCIM® Magic Spell. .......... 
AUPE GAIGS. ae od, es $249 SDEWESINGGM: «Soni. s fil a. 
WEGHISSSGe en, cot has Cr ee $115 SOIGCE er ah eh ot 
TAN GH CeO, il RE aa OR $157 Whe: Words 6.48 S05 7. 
The Word Plus......... 
jobaemaes me Palantier-I (WP)........ 
Diagnostic!..............$ 49 ) ee eaabiaatel catia 
Diagnostic Il..............$ 84  ASCOM................ 
Disk sean ih oe yet $ 89 ie lal ee 
Forth (8080 or Z80).......$149 BSUMS a5 606 5 ee 
Porirehas: Pie rs chon t: $219 COOSBEEMG ey, 28s 3 oes os 
Fortran w/Ratfor.......... $289 WORRIES I vn 5 ae boy» 
C Compiler. 2.0... 220 $225 “OTHER GOODIES” 
Star ecdiee 6 oe awe $189 Micro: Plan ci eo. ot 
SCratGn Pad: 2... el be. $266 Bia. ie. Soe st 
StatsGraph _ Lot SEO Sy Dae ge, ae $1 74 Target (Interchange) Lone. 
Ls ges oh ee eae eo Target (Planner)........... 
Dataview................$174 Target (Tash). oc ca 
Disk Edit.................$ 89 Plannercalc:..........: 
eee Ty. 52 eo ee TH Ce ce ee 
Lk a Ge a a ie $174 Tiny “C"C TS eee 
SuperMList............ 68 heeadaeeet os 
MEERUT a ot os $179 Mickosiat > oes ees, 
Zap Z-B000... 022022 Mae Neg e 
Lol AG ee $ 54 MiniModel....... 
Grulltresiie socks. So $ 54 Ghetaie hts 28 oi = 
ACCOUNTING PLUS BAIGEO Bs oe ath, 
TNMGGIIGs ose... cb os $385 Ric Me 6 ae Pee eae 


Outside Continental US—add $10 plus Air Parcel Post + 
* California residents add 6%% 


6520 Selma Ave. Suite 309 « Los Angeles, Ca. 90028 + (213) 837-5141 


SHinG/SO. ie. ve en ale he $ 84 
String/80 (source).........$279 
ISIS CP/M Utility..........$199 
SY ERP ae Oh Mgt Whe bare $199 
SUBOCOVVZ fo scr So. bs a er ees $ 95 
ATU POWGT 36.00) eT of 
Mathe Magic: 2.5 ).. s.a<, $ 95 
eh A ge, 8° | $765 


ZIP MBASIC, CBASIC..... $129 
Real Estate Analysis....... 


APPLE 11® 


BRODERBUND 
G/L Gwith:A/PR).2 << 2 Ee $444 
BAVIOU Roe cto ecco. ee ee $355 
INFO UNLIMITED® 
EasyWriter (Prof).......... $155 
Dataviex. > as. Le Ts a $129 
EasyMailer (Prof).........$134 
@Gtier-. bus... 34-7 = lessisy 
MICROSOFT® 

Y Softcard (Z-80 CP/M)...... $239 
FORMAN: Peek NE led & $179 
ODO IN tate Per $499 
ASG rAay. A eae he dec $139 

~ Premium Package......... $549 

cet et ai yy Ont £0 aa a rr $129 
MICROPRO® 

Ai WOTGSTAN es ec Ace Pela, + $199 
MailMerge.. side A aes $ 99 
Wordstar/MailMerge....... $349 
SHOEGPOOrE 67 ee eK $159 
Lo | ae i 2 Mae ea $129 
GaleStar.. s/o hoya tie oh he $175 
Batata eee ne $265 
VISICORP® 

PE VISIGAIC SIGs eis o oy Oe $189 
UGERIOD/ Plant... 6. eal et $219 
ViSten DN ae ce ee ee $ 90 
MIGIOIOK YE 5 2s ec i eee $219 
VISIDIO‘: 6 Wi fc sae het $180 
Visitrend/Visiplot..........$259 
MISHHG:. =. Sod! een ch OY, $219 
Visischedule.............$259 
PEACHTREE® 
G/L, A/R, A/P Pay or 
Inventory (each).......... $224 
Peach Pack P40... .-.....4. $795 


SOFTWARE DIMENSIONS, INC. 
Accounting Plus II, 

G/L, AR, AP or 

Inventory (each).......... $385 
(Needs G/L to run) 


“OTHER GOODIES” 


Superriext ose ee TOF 


LOWER PRICES, COME 
HELL OR HIGH WATER. 


ORDERS ONLY + CALL TOLL FREE + VISA - MASTERCHARGE 
U.S. 1-800-421-4003 ¢ CALIF. 1-800-252-4092 


CP/M is a registered trademark of DIGITAL RESEARCH, INC. 
THE DISCOUNT SOFTWARE GROUP 


int'l TELEX 499-0446 DISCSOFT LSA - USA TELEX 194-634 (Attn: 499-0446 
TWX 910-321-3597 (Attn: 499-0446) 
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Data’ Factory ©. 23 eee 


DB Master 2)... 4 eer $184 
Versaform VS1. 2.0.2... .2°$350 
Vos. so ee ok. See $445 
16-BIT SOFTWARE 
WORD PROCESSING 
IBM PC 
i Wordstats .-24 .cc0 5s. eee $279 
oP SDGNSIOR 65 aes ooh ee $175 
Mailmerge............... $109 
EaSVWiitere ns el. 8 tee $314 
Gegveneiier + 2.22.05. >.< $159 
Select/Superspell.........$535 
Wiito Oa minicar ab cee $116 
Spellguard 


(also available for 


8" 8086 systems)....... .$229 

SP Law 

(for Spellguard).......... $115 
Textwriter Uo. 2%). ste T$1B9 
Spelibinder. © 2%5 eis: $349 
PinaliwWorde. 4 25.2. See oe. oe $270 
LANGUAGE UTILITIES 
IBM PC 
Crosstalk... 6 on. shen. SMES 
BSA es nara! eet $149 
BSMIMIOMES ae oeis cs te Sts $149 
8" 16-BIT SYSTEMS 

Y Pascal MT+ /86,SSP...... $679 

CBasiceG:s,c0ns (2o.. .fee $294 
Pascal’ M/86ss.: :. <>. «hi c$445 
AGUBG. Sho Sh Sie 3 ne Ai SS $157 
GAnGISOL Se Roe eae $115 
MiSTSGtee sh cow see $135 
16-BIT 8" AND DISPLAYWRITER 
CPM. S6 ko nak te eee $294 
MP/M 86........ .$585 
OTHERS 
IBM PC 
SuperCaless\: . Sn $269 
VisiGale: bi ae eee $219 
Easyfilere=s:.-c. £4.03 see $359 
Mathtiemagi¢c:... <2): 2.83 $ 89 
CP/M Power..............$ 65 
Gondor at... 24) 2 hee $265 
COndOG2Z2 ki. oe. tae $535 
GONGON LS... Mite Slt oes $895 
GONGOMZOG ss « fcntuc come Ae $175 
Gondor20R ©... ead $265 
PRTESENN Ss 28 iso stand ane $449 
OptMIZEC secu ds isk OR eat $174 
Desktop Plan ll........... $219 
Desktop Plan Ill........... $259 
VISIGEOE. <tc cae whee a es $219 
Visitrend® .5 tee cs oe $259 


Many others available for use 
with the “Baby Blue Board®” 


8" 16-BIT SOFTWARE 
SuperGalotiedy va. heros $269 
CP/M Power: «2.625... 2)-$. 65 


FORMATS AVAILABLE: 


8" single density 
8" OSs! 

Superbrain 
Micropolis/Vector Graphic 
NorthStar Horizon 
NorthStar Advantage 
Osborne 
Heath/Zenith 
Cromemco 
Televideo 

Xerox 820 

Dynabyte 
Hewlett-Packard 125 
NEC 

Eagle 

Apple II/III 

Otrona 

TRS-80 Model I/II/III 
DEC VT-180 

Altos 

CP/M-86 

IBM PC 


Add $3.50 postage and handling per each item 
sales tax * Allow 2 weeks on checks. C.0.D.$3.00 extra « Pri 


; ces subjecttochan 
without notice. All items subject to availability » ®—Mfgs. Trademark. Blue Label $3.0 ae 


0 additional per item. 





interrupt transfer vector so that it can 
intercept these events and perform the 
appropriate error analysis. 


Regarding 8086/88 
Segment Registers 


The Intel 8086/88 documentation is 
rather vague about the use of default seg- 
ment registers in the various indirect 
addressing modes. The iAPX 86,88 User’s 
Manual states on page 2-12 that “most 
variables (memory operands) are assumed 
to reside in the current data segment, al- 
though a program can instruct the Bus 
Interface Unit to access a variable in one 
of the other currently addressable seg- 
Penis...” 

Leo Scanlon, the author of a book 
on 8088 assembly-language programming 
(which is in press at the Robert J. Brady 
Co.), has written to point out a surprising 
exception to this rule. The base indexed 
addressing modes [BP+SI] or [BP+DI], 
which I had always assumed were used to 
extract data from multi-dimensional data 
arrays, do not use DS (Data Segment 
register) as the default but rather form 
their address in combination with the SS 
(Stack Segment register). Teleologically, 
this is a bit unexpected, but Leo proved it 
experimentally with the program in List- 
ing 2. Table 1 is derived from a similar 
table in Leo’s new book and is reprinted 
with his permission as an aid to DDJ 
readers. 


IBM Low Resolution 
Graphics Revisited 


In an earlier column I printed a BASIC 
listing which demonstrated how to initial- 
ize and use the low resolution color 


Listing 2. 
Leo Scanlon’s program to determine the default segment 
registers for base indexed addressing on the Intel 8086/88. 


SEGMENT 
DB 18@ DUP (@FFH) 
ENDS 

SEGMENT PARA 
DB ABH 


"DATA' 


ENDS 
SEGMENT 
PROC 


PARA ‘CODE' 


FAR 


ASSUME 
MOV 
MOV 
SUB 
SUB 
SUB 
MOV 
MOV 
RET 


AX,DATA 
DS,AX 
BP,BP 
S 4-5 a 
5 ee 2 
DL, [BP+SI] 
DH, [BP+DI] 


ENDP 
ENDS 
END 





graphics mode on the IBM Personal Com- 
puter, allowing the display of sixteen 
color pixels with a resolution of 160 by 
100. James Murphy, of Madison, Wiscon- 
sin, has kindly sent in a set of Forth rou- 
tines to plot points in the lo-res mode 
(see Listing 3); these execute about 
twenty times faster than the original 
BASIC version even though they are writ- 
ten in high-level code. 

In Screen #75 of the listing, the 
definitions ‘““TR” and ““CRT_LRC_INIT”’ 
take care of setting up the video control- 
ler chip’s various registers. “CLEAR_- 
BUFF” initializes the video memory map 
with the required values so that each pixel 
will be displayed as a solid block of color. 
“TLRCG” (mnemonic for Low Resolution 
Color Graphics) uses the previously de- 
fined words to initialize the display and 
prepare for plotting. In Screen #76, 
“IDOT” (Store Dot) accepts an address 
and a color and sets the appropriate pixel 
in the memory map. X must be in the 
range 0-159 and Y in the range 0-99, 
with (X,Y)=(0,0) being the upper left 
corner of the screen. Finally, Screen #77 
contains a nice little demonstration pro- 
gram which draws a test pattern of nested 
squares in different colors. 

Readers who wish to extend the low 
resolution graphics capability even fur- 
ther can refer to the Forth line drawing 
routine which was printed in the July 
1982 issue of DDJ. 


(Listing 3 on page 18) 


BB, 


PARA STACK 'STACK' 


CS:CODE,DS:DATA,SS:STACK 
s;initialize DS 


;clear the 
z;addressing regs. 


;read memory with 
sbased indexed addr. 


Addressing 
Mode 
Register 
Immediate 


Direct 


Register 
indirect 


Base 
relative 


Direct 
indexed 


Base 
indexed 


Operand 
Format 


Segment 
Register 
reg 
data 
disp 
label 
[BX ] 
[BP] 
[DI] 
[SI] 


[BX+disp] DS 
[ BP+disp] Ss 


[ DI+disp] DS 
[SI+disp] DS 


[BX+SI+disp] DS 
[BX+DI+disp] DS 


none 
none 


DS 
DS 


[BP+SI+disp] SS 


[BP+DI+disp] SS 


*In string instructions, the destination ad- 
dress is formed by the combination of DI 
and ES, and the ES register cannot be over- 


overridden. 


Notes: 


. “disp” is optional for base indexed 


addressing. 


. “reg”? can be any 8- or 16-bit register, 


except IP. 


. “data’’? can be an 8- or 16-bit constant 


value. 


. “disp”? can be an 8- or 16-bit signed dis- 


placement. 


Table 1. 


8088 addressing modes 
and segment register defaults. 








Elegance 


Power 
Speed 
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Listing 3. 
Laboratory Microsystems PC/ Forth. 


Screen # 75 
Oo ¢€ Lo Res Color Graphics 12/27/82 ) 
FORTH DEFINITIONS HEX 


QOON POP WA) 


os ef yf, 


a, 


¢ 


initialize video controller chip ) 
TR eee. Piet oe ee 
CRT_LRC_INIT 9 SDS PC! O7F 4 TR 64 6&6 TR 70 7 TR 19 TR ; 


initialize video memory map for low res graphics ) 
CLEAR _BUFF 4000 0 DO ODE BSBOO I 'L 2 +LOOP ; 


set operating mode for low resolution color graphics ) 
LRCG « MODE CRT_LRC_INIT CLEAR BUFF ; 


~ 


See ote oe 


Screen # 7& 


OQON OO PWAe © 


¢ 


¢ 


lo Res Color Graphics 12/27/82 ) 
Plot point in low res graphics: »x y color --- ) 
'DOT ROT DUP 1 AND 

IF ROT OA0O * + BBOO SWAP 2DUP COL 


OFO AND >R ROT R> OR ROT ROT C!L 
FLSE 1 OR SWAP 10 * SWAP ROT OAO *& + 
BB00 SWAP 2DUP CadL OF AND 
>R ROT R> OR ROT ROT C!L 


THEN «3 
DECIMAL 
pees canes > 
Screen # 77 
{ Lo Res Color Graphics demonstration 12/27/82 ) 
> VARIABLE COLOR 
O VARIABLE CSEQ ey Sg ey Bay TO. 1S fae 
See gg eee eed SES ee Por 
=: SQUARE DUP 80 + OVER 80 SWAP - 
3 PICK DUP 30 + 50 ROT — SWAP 1+ SWAP 
DO DUP I COLOR 2 'DOT OVER I COLOR @2 ‘DOT 


QOON OOP WN S 


LOOP 2DROP DUP SO + OVER SO SwaP -— 
3 PICK DUP 80 + 80 ROT — SWAP i+ SwaP 
DO DUP I SWAP COLOR @ 'DOT 
OVER I SWAP COLOR 2 'DOT 
LOOP 2DROP DROP ; | 
DEMO LRCG 50 0 : 
DO I 15 AND 2% CSEQ@ + 2 COLOR ' I SQUARE 
LOOP KEY DROP & MODE ; 


3 
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Z80 CP/M'sortwarE 


HIGH QUALITY — LOW COST 


OVERBEEK ENTERPRISES is committed to providing quality software at extremely low prices. 
We intend to make a handsome profit by having thousands of satisfied customers. We believe that 
the following two products represent truly outstanding bargains. 


$ 


Micro-WYL 
A powerful, Z80 CP/M text editor 





Tired of trying to use ED under CP/M? This is the 
editor developed by Realworld Software, Inc. and 
reviewed in Infoworld (11/15/82). 


— Here are quotes from customers and reveiwers — 


“Micro-WYL is undoubtedly the hottest software 
bargain on the market” 


“thank you, thank you, thank you” 
“Micro-WYL is truly terrific” 


— Those are quotes from unsolicited letters from our customers. 





“While | am an avid Wordstar user, | personally 
prefer the ease and convenience of Micro-WYL 
when writing programs. The price is right and the 
product is great. Try it. This editor has numerous 
features not described in this review — all of which 
help to make this product an essential part of your 
program base.” 


— From a review in the PASCAL MT Users Group Newsletter. 





“This editor is perfect for writing in nearly any 
programming language. [I] .. . find myself looking 
for excuses to use Micro-WYL, and certainly have 
no hesitation in recommending it to anyone whose 
requirements match the capabilities of this inventive 
piece of software.” 


— From a review in Infoworld (11/15/82) 


$ 


95 


DISK INSPECTOR 





Have you ever been unable to read a file due to a 
bad sector? Have you ever erased the wrong file? 
Disk Inspector acts as a full-screen editor for disk- 
ettes. You can simply watch as sectors are displayed 
on the screen in both character and hex formats. 
When you wish to make the display pause, touch the 
spacebar. If you wish to alter a sector, it is a simple 
matter to move the cursor over the appropriate 
character, alter it, and have the sector rewritten. 


Although Disk Inspector runs under CP/M you can 
inspect and alter normal (non CP/M) Apple diskettes, 
as well. The disk drives may be single or double 
density, single or double sided. The comprehensive 
manual will show you how to: 

Recover an erased file. 

Modify a director entry. 

Clean up a directory. 

Utilize the CP/M Auto-Load feature. 

Create multiple directory entries. 

Read and modify non CP/M diskettes. 


The Disk Inspector is a full-screen editor for disks. 
Our competitors offer products in the $100-$200 
range. We certainly invite comparison of this product 
with any comparable system in terms of features or 
user friendliness. In terms of price, there is no 
comparison. 


Note: Disk Inspector requires an 80 x 24 screenonyourCRT andis 
currently available only in 8” SSSD, Kaypro, Apple/Softcard, 
NEC, and Altos Series 5 formats. 


a program that runs under Z80 CP/M. 
for disk inspection and modification 

















saeaueaueaepeueupeeeeueseueueeaesestesebeseseeaeesenteteeaesmetee#e ss 
a 
We do offer a great editor at an unbelievably low = (J e8"sssp C] ALTOS Series5 Northstar 5” DD 
price. WYLBUR*‘ has been popular on IBM mainframes : [1 Apple/Sottcard F] televiass Pemoe 2 te Aeneas 
for over a decade. 2 CL] KAYPRO 11 5” L] Osborne L} Horizon 
Now you can have the convenience of WYLBUR on s (I NECS” OC Superbrain 
your micro. : 
1 ; : sss 3 
CP/M is a registered trademark of Digital Research, Inc. ‘ Amount: $25 for Micro-WYL 
2 . : B 
WYLBURis a registered trademark of The Board of Trustees ofthe ; 
Leland Stanford Junior University : $29.95 for Disk Inspector 
. 
y $2 for postage & handling 
8 POR ee 
Make your check out to: d 
& 
Overbeek Enterprises . Name 
P.O. Box 726 ; 
Address 
Elgin, IL 60120 2 | 
. City State Zip 
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AUGUSTA, Part II 


The Augusta P-Code Interpreter 





art 1 of this four-part series de- 
scribed the Augusta language. This 
month’s article continues with a de- 
scription of the p-codes and the p-code 
interpreter that executes Augusta pro- 


grams. 


Stack Machines 


The Augusta compiler translates 
source statements into code for a hypo- 
thetical “‘pseudo-machine’”’ based on the 
use of stacks. Stacks provide a natural 
representation for arithmetic expressions 
and for implementing nested procedure 
calls and local data definitions. 

Owners of Reverse Polish Notation 
(RPN) calculators are already familiar 
with stacks and their use for evaluating 
expressions. The basic operations per- 
formed on the stack are push and pop, to 
add and to remove data to and from the 
stack, respectively. 

A stack is often compared to a spring 
operated stack of plates in a cafeteria. A 
new plate is added by pushing it on to the 
top. When a plate is removed, the whole 
stack pops upwards. For example, if we 
push both 13 and 10, the stack looks like 


10 
13 


Then, we can add them together to give 
20 


If we translated these steps to an assembly- 
like language, we might write 


PUSH 13 


PUSH 10 
ADD 


Complicated expressions like 5*(3+7) are 
coded as 


PUSH 5 

PUSH 3 

PUSH 7 

ADD ; Add 3+7 

MULT ; Multiply result by 5 


With a few more instructions, the stack 
becomes a general purpose expression 
evaluator. For example, to perform the 
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assignment, X:=10+13 on a stack ma- 
chine, the following sequence of instruc- 
tions might be executed 


PUSH address of X 
; Put the memory address 
; of X on stack 


PUSH 10 
PUSH: T3 
ADD ; Compute 10+12, 
; leaving 23 on stack 
STORE ; Store top of stack value 


; into the address con- 
; tained in the next word 
; on the stack 


The Augusta p-machine consists of about 
80 instructions (see Table 1) to manipulate 
the stack and perform other functions 
such as conditional testing, branching, 
procedure calls and returns. 


P-Machine Overview 

The p-machine is a 16-bit stack- 
oriented hypothetical computer. It has a 
code pointer register CP that contains the 


byte address of the next instruction to 
execute, and a stack pointer SP that 
points to the top of the stack. In addition, 
the global frame pointer GF and the local 
frame pointer LF are used to speed up 
references to global and local variables, 
respectively. 


Registers SB (Stack Base) and CB 
(Code Base) are of use when debugging 
programs and point to the bottom of the 
stack, and to the first byte of code for 
the currently executing procedure. CS 
(Code Segment) points to the address of 
the first byte of code. The number of the 
procedure that is executing is stored in 
the PN register (the first “PROCEDURE” 
seen in a program becomes procedure 1, 
the second “‘PROCEDURE” statement 
becomes procedure 2, and so on). 


Before a program can be run, it must 
be loaded into memory. One more regis- 
ter, PT, contains the address of the proce- 
dure table. The procedure table contains 
a 7-byte entry for each procedure in the 
program and includes (1) the address in 
memory of the procedure’s code, (2) the 


Corrections to Augusta, Part I 





Several last minute editing changes 
were made by both the author and the 
editors at Dr. Dobb’s in order to 
shorten the length of Part 1. Unfortu- 
nately, a few incorrect and misleading 
statements crept into the text. 


The Augusta compiler is written 
in Microsoft BASIC, and hence, can be 
run on systems other than a standard 
CP/M system. However, compiled pro- 
grams can only be executed by using 
the p-code interpreter, a program that 
currently runs only on Z-80-based 
CP/M systems. While I do hope to pro- 
duce an MS-DOS version, it was prema- 
ture for the editor’s note to announce 
that such a version will be available 
shortly. 

Originally, Part 2 of the series de- 
scribed a BASIC language implementa- 
tion of the p-code interpreter. But 
that description was removed and 
some of the comments in Part 1 no 
longer apply. For example, the BASIC 
p-code interpreter implemented virtual 
memory but the assembly-coded ver- 
sion of the interpreter does not. 

The variable declaration 


S : STRING: 


defines S as a string of up to 80 bytes 
(not 128, as shown in Part 1). A differ- 
ent length is specified by writing 


S : STRING(200); 


which gives S a length of 200 bytes. 
Maximum string length is 254 bytes. 

Part 1, Table 1 summarized only a 
few of the available ‘“‘built-in” proce- 
dures and functions. With nearly 40 
procedures, Augusta provides an Ada- 
like file system, printer and serial port 
I/O, string searching, MOVELEFT, 
MOVERIGHT, and a very limited dy- 
namic memory allocation scheme. 

To support file access, a fifth pre- 
defined type is used, as 


BEN OU TL EILE: 


which defines F as a file access varia- 
ble. File variables may be grouped in 
arrays and passed as OUT procedure 
parameters. 

The syntax diagrams contained 
three minor errors. Corrections are 
Shown in Figure 1 (opposite). Proce- 
dures and functions are not required 
to have parameter lists as was implied 
by the original diagrams, and an ELSE 
may not follow an ELSEIF. 


Be se Fs hee Tne gt Sea ie et 
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Changes to SEQ OF STMTS 


ee ES- 


er 
ee ( THEN ) er “ener ee ae ( eno ) 
ea pemerg Deere ergy | 
SION 





(PROCEDURE CALL) 


PARAM 
LIST 


PARAM LIST 






Oo 3 EXPRES- oO ; 


SION 


Changes to PRIMARY 
(FUNCTION CALL) 





[REPLACES (FUNCTION) ON ORIGINAL] 


Figure 1. 
Corrected Syntax Diagrams for the Augusta Language 


number of bytes of parameter variables, 
(3) the amount of memory required for 
local variables, and (4) the “‘lexical level’ 
of the procedure. 


All procedure calls are made through 
the procedure table. The instruction 
CGP 5, for example, means to call proce- 
dure 5. The location of procedure 5 and 
how much memory to allocate for its 
local variables are fetched from entry 5 
in the procedure table. 


The P-Code Instructions 


The entire group of instructions is di- 
vided into several smaller groups consisting 
of (1) “load” and “store” instructions, 
(2) string assignments, (3) logical opera- 
tions, (4) integer arithmetic operations, 
(5) integer comparisons, (6) string com- 
parisons, (7) jump instructions, and (8) 
procedure calls (see Table 1, pages 31-33). 


A simple operation is to load a con- 
stant on to the stack. The LDCI or “‘Load 
Constant Integer’? opcode is a single byte 
long, followed by a one-word (16-bit) 
value. When the p-code interpreter is ex- 
ecuting instructions, CP always points to 
the next byte of the program code. For 
LDCI, the p-machine reads the instruc- 
tion and decodes the opcode byte. Then 
it jumps to the appropriate LDCI' sub- 
routine to load the constant. The actual 
constant is stored in the two bytes fol- 
lowing the instruction, as shown here: 


LDCI « CP points to this 


instruction 
+ the operand follows in 


ee, in two bytes 


After the LDCI opcode is read, CP is 
incremented to point to the first byte of 
the constant. The LDCI subroutine then 
reads the 16-bit integer and pushes it on 
the stack. A push is performed by writing 
the word into the memory location 
pointed to by SP, and then incrementing 
SP by two (since one word occupies two 
bytes and SP always points to a word). 
CP is incremented so that it points to just 
past the second byte of the constant, 
which is the next instruction. 


Four data types are recognized by 
the p-machine: (1) 8-bit bytes, (2) 16-bit 
integers, (3) fixed-length strings, and (4) 
boolean values. An integer takes two 
bytes and represents numbers in the range 
-32768 to 32767. A string uses a fixed 
amount of memory determined from its 
declaration in the Augusta program, plus 
one byte to hold the current length of the 
string. For example, if S is a string of up 
to 80 characters in length, then 81 bytes 





Dr. Dobb’s Journal, Number 77, March 1983 





x 





of storage are reserved. The first byte 
holds the length as illustrated here: 


! I | I | I 
‘ben, | | | eee ee I I 


79 80 


For example, the string ‘Alphabet’? would 
be stored in memory as 


SAS aie GY cas A Ps RL og ca aie 


A boolean TRUE is any non-zero word 
while FALSE is a word containing zero. 

A variety of instructions are used to 
load the values or addresses of both glo- 
bal and local variables. Several variations 
on these instructions are provided to ac- 
cess “‘intermediate level’’ variables (these 
occur when procedures are defined inside 
of procedures that are defined inside of 
procedures, ad infinitum) and _ special 
“short” forms that reduce the size of the 
compiled programs. 

A single instruction “STO” writes 
the word on the top of the stack into the 
address contained in the second word 
from the top of the stack. 

Strings are never loaded on to the 
stack. Instead, just a pointer to the string 
is loaded. For example, when the state- 
ment 


Li 


GT | 


CP/M22 INTRCEPT 


S := “STRING”; 


is compiled, Augusta translates this to a 
*‘Load Constant Address’? (LCA) instruc- 
tion, followed by the string assignment 
operator SAS. The constant string 
“STRING” is translated by Augusta into 


LCA 6 STRING 
. 
Length Byte 


When the p-machine encounters the LCA 
opcode, it pushes the address of the length 
byte on to the stack. Then it sets CP to 
point to the first byte after ““STRING.”’ 

Logical and arithmetic instructions 
perform an operation to the top one or 
two words of the stack. For example, 
ADI pops the top two words from the 
stack, adds them together and then 
pushes the result. Relational operators, 
like EQUI, pop the top words and com- 
pare the values. If the relation is true, 
then a non-zero word is pushed, other- 
wise a zero is placed on the stack. 


Stacks and Procedure Calls 


When a program executes a proce- 
dure call, the computer uses a stack to 
keep track of the “return address.’’ Each 
time that a procedure is called, the return 
address is pushed. If a called procedure, 
in turn, calls another procedure, then 


CDO 


Ed Mitchell’s 


AUGUSTA" 


both return addresses are distinct. The re- 
turn address of the most recently called 
procedure is always the topmost address 
on the stack. 

When a procedure finishes, it pops its 
return address from the stack and resumes 
execution at its calling point. As we’ll see 
in a moment, the stack is also used to 
hold additional information. The portion 
of the stack that holds the return address 
is known as the “frame mark.” The frame 
mark delineates each procedure from the 
other procedures on the stack and saves 
the state of the procedure that was run- 
ning before the procedure call. 


Variable Allocations 


Augusta permits nested procedure 
definitions. Each procedure can have its 
own local data. Space for local variables is 
allocated when the procedure is called. 
When the procedure exits, all of the space 
used by the local variables is made free. 

Figure 2 (page 24) shows how a stack 
machine allocates storage space for varia- 
bles defined in the outermost procedure 
and for local variables defined within 
called procedures. The variables in the 
outermost procedure are accessible to all 
of the procedures that are contained 
within it and are referred to as “‘global’’ 


Se 
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CBASIC. 


Available now for Z80-based CP/M® systems. 
Includes compiler, compiler source, powerful 
debug utility, p-code interpreter and disassem- 
bler, and a comprehensive reference guide. 


RUN CDOS PROGRAMS UNDER CP/M 2.2 
RUN CP/M 2.2 PROGRAMS UNDER CDOS 
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Augusta is a trademark of Computer Linguistics 

Ada is a registered trademark of the U.S. Dept. of Defense 

NOTE: Augusta does not purport to be a compiler for the complete Ada 
definition. 

CP/M is a registered trademark of Digital Research, Inc. 
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 C/65 is the first commercially-available C compiler 





produces assembly language output. 
-C/65 supports a very usable subset of the extremely powerful and popular C language. Just as C is used by the 
most sophisticated programmers from the professional and academic communities, so shall C/65 prove to be a powerful and 
much-needed tool for 6502 software developers. 
C/65 supports INTegers and CHARacters, arrays thereof and pointers thereto. Naturally, it also features full recursion, easy 
assembler interface, INCLUDE, and a non-macro version of #DEFINE. AUTOmatic, global aiid EXTERNal variables are also 
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preter, a learning tool....$99.95 


a powerful, self-relocatable debugger. FREE with 
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ROBOTICS 


An age where formerly impossible tasks become 
everyday reality. The mechanization of many 
laborious physical and intellectual tasks of in- 
dustrial, commercial and domestic life is coming 
about through the technology of intelligent 
machines. We see innovative applications of 
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expensive personal computers. 
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variables. Global storage space appears on 
the bottom of the stack. 

When a procedure is called, any 
needed parameters are pushed, a frame 
mark containing the return address and 
other information is output, and the 
stack pointer is incremented high enough 
to leave space above the frame mark for 
local variables. When the procedure fin- 
ishes executing, the information from the 
frame mark is restored, and the stack 
pointer is cut back to where it was before 
the parameters were pushed. In this man- 
ner, all local storage space is allocated 
dynamically at the time of the procedure 
call, and then disappears upon return to 
the caller. 

Global variables are referenced as an 
offset from the global frame mark at the 
base of the stack. For example, a variable 
at offset 2 is referenced with the ‘‘Load 
Global Value”’ instruction 


LDO 2 


The location of the global frame is kept 
in register GF. To fetch the value at off- 
set 2, the p-machine adds 2 to GF which 
computes the memory address of the glo- 
bal memory word. 

Local variables are referenced as an 
offset from the local frame mark so that 
the instruction 


LDL:s 


references the data three bytes above the 
local frame mark. Register LF always 
contains the address of the currently ex- 
ecuting frame. 


; Load Global instruction 


; Load Local instruction 





(Figure 2a) 





FROCEDURE Fi IS 
I : INTEGER; 
Jo: INTEGER: 


FROCEDURE F2 ¢ X : 
A : INTEGER: 
Ro: INTEGER: 


INTEGER ) 


REGIN 


END; 


BEGIN 
P2C5) 3 
END; 






Figure 2. 
Storage for variables is allocated on the stack. (b) is a map of the stack for the pro- 
gram shown at (a), after P2 was called. Space for I and J is allocated at the base of 
the stack. When P2 is called, its single parameter, 3, is pushed on the stack and 
topped with the frame mark for P2 and P2’s local variables. 


Parameter variables are also refer- 
enced with the local data instructions. 
Since parameters are located below the 
frame mark, the local instruction uses a 
negative offset. For example, 


LDL-16 ; Load the value of 
; first parameter 


Handling Nested Procedures 


Augusta, like Ada and Pascal, allows 
nested procedure definitions as in Figure 
3 (page 28). Procedure P4, inside P3, can 
reference variables in both P3 and P2. 
These variables are neither ‘‘global’’? nor 
‘local’ to P4. Instead, they are ‘“‘up-level’’ 
references. 

After P4 has been called, the stack is 
as shown in Figure 3(b). To reference 
variable Y in procedure P3, the p-machine 
has to refer to the previous frame on the 
stack. Similarly, to reach variable X, the 
p-machine must traverse backwards two 
frame marks to reach the local data of 
procedure P2. Because of up-level refer- 
ences, the frame mark needs to contain 
more than just the return address. 

The return address or “dynamic link’”’ 
chains together the frame marks in the 
order that the procedures were called. If 
procedure P4 makes a recursive call on 
procedure P3, P4 cannot be the previous 
frame for an up-level variable reference. 
If it were, then P3 could up-level address 
variables for a lower level procedure. 
Therefore, the dynamic link is insufficient 


(Figure 2b) 


Anat Seat eee Renee nmeee seene eee. wernt Senet eueet tener eemee Sunes sates 


K 


i esha eran gee 
A 


Tent Stee nemee neeee nets tenee manne —aeee Senet enone eneet eteee tenes eetee 





Rg oll 
# parameters 
dynamic link 
static link 
{Is 5 Redd uote oe ee all amg, 
Freavious CR 
Frevious CF 


AAOee Sntee t4nOS eewe eens Fenee wanes Sones ensee Geeee setes teeee bates Sense 


— ee ee OR ee wee ll 


Freyviaue FIN 


+ et Anas Sanne ONY MOORE Aeeee enene ateet eeee Hetet Hemet memes senee 


Lex Level 


Nee mteee FFORE Reene Mamet Henne cones eeees ateee anaes seems wetes seer 


P2’s K = Ss 


at 1Se8t teen Somes S8O08 ttees sanee tents eenes enone sneer semen Sneee weree 


J 


Se ade A ee ne) 





ST aeRO: Gee Oe! eas) CS, ewes) Rem ane, | oem cmete, ‘Salem (emap’ een: ‘epel exiom cuty, tren) agent Wem vais <lte, inne’ “ibe 
' : 


| {| <-- GF 
















Dr. Dobb’s Journal, Number 77, March 1983 











THE PAPE 
CHASE 





Now you can computerize your business forms 
and input screens without all that tedious, time 
consuming programming. 

With ZIP™ it’s going to seem almost too easy. 


Just “paint” the screen. 

To prepare an input screen or output form, 
just move the cursor around the screen and type in 
text, prompts and data field names exactly where 
you want them. Use “@” to print or display values, 
use “;” for input fields. 

When the screen looks like the format you 
want, type “/S” and what you see is what you'll get. 
In seconds, ZIP writes all the program code to 
recreate the format on the screen or on paper. 

And you can use the ZIP code immediately 
just by adding a single line to your main program: 
GOSUB xxxxx in BASIC, DO Formname in 
dBASE Il. 


ZIP is quick and friendly. 

ZIP runs on virtually every 8-bit micro known 
to man, and your terminal continues to work the 
way it did (tab, arrows, etc.), So you don’t have to 
learn or unlearn anything about your equipment. 

Commands are typed (no control codes), so 
you or your secretary can breeze through input 
screens and output forms up to 88 lines long and 
have ZIP whip out the BASIC or dBASE II code. 

The ZIP Talker™ a line at the bottom of the 
screen, always tells you exactly where you are. And 
Help is just two keystrokes away. 


Now MBASIC really ZIPs. 


The MBASIC version goes further and gives 
your programs the same screen handling character- 
istics that ZIP has, by writing a piece of itself in 
MBASIC so that you can use it in any of your 
programs. 

The operator can use the arrows, etc. during 
data entry and conveniently jump back and forth 
between the input fields. 

You can specify field lengths, or let ZIP default 
to the available space. Either way, text and prompts 
are protected no matter what kind of terminal you 
have, so the operator can't write over the fields 
and prompts. 
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You get the MBASIC code for a “Talker” that 
you can use to pretty up your program prompts. 
And easy, one-line data validation is built in. 


Join thousands of users ZIPping along. 

All you need is an 8-bit micro with CP/M or 
MPM, 48k of memory and a 24x80 ASCII or ANSI 
terminal (Osborne 1 and 56k Apple okay, too). 

The MBASIC and CBASIC versions are $160 
each ($225 for both) plus $7 shipping (VISA, 
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for up-level addressing. Instead, a static 
link is used to reflect the structure of the 
program. 


When P3 calls P4, the static link of 
P4’s frame mark points to the frame mark 
of P3. If P4 calls P3, a new frame is cre- 
ated for P3 on top of the stack. However, 
P3’s static link is set to point to the frame 
for P2, because P3 is declared inside of 
PQ; 


In addition to the dynamic and the 
static links, the frame mark also contains 
the number of bytes of parameters, the 
lexical nesting level, and the code base 
pointer of the current procedure. The 
lexical level is the depth of nested proce- 
dure definitions. If P2 is inside of P1, the 





* Compiler option to generate special 
symbol table for new dynamic debugger 
by David Kirkland. (With the debugger, 
the distribution package now requires 
two disks. 
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including random-record read, seek 
relative to file end, user number 
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e New, fully-indexed 180 page manual 










¢ @CP/M is a trademark of Digital 
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first procedure in the program, then P2 is 
at lexical level 2. Similarly, if P3 is defined 
inside of P2, then P3 is at lexical level 3. 


Code File and Memory Layout 


The p-code interpreter is contained 
in a code file named RUN. (Note: An 
alternate p-code interpreter named DRUN 
contains a built-in debug utility. The 
utility provides program tracing, single- 
step and n-step execution, and examining 
and changing the value of variables.) The 
interpreter reads the code file into mem- 
ory and begins execution. 

The code file is organized into three 
sections (see Figure 4(a), page 29): (1) a 
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128-byte header block containing infor- 
mation about the code file, (2) a 1792- 
byte procedure table containing space for 
256 procedures (entry 256 is not used), 
and (3) the p-code for each of the pro- 
cedures in the program. 


When the code file is loaded, only 
the used portion of the procedure table is 
read into memory. Obviously, if the pro- 
gram only contains ten procedures, then 
only the first part of the table needs to be 
read. 

After the code is loaded, the CP reg- 
ister is initialized to the first p-code in 
procedure 1, and the stack pointer is set 
to point to the first word after the p- 
codes. The other registers, including GF, 
LF, and PT, are set as needed. Figure 4(d) 
shows the memory layout after a code 
file has been read into memory. 


Augusta Efficiency 

One way to measure a language’s 
efficiency is to run a benchmark test and 
compare the size of the generated code 
and its execution time to that of other 
languages. Listing 1 (page 35) is the 
source code of a simple prime number 
generator based on the sieve of Eratos- 
thenes. (Listing 2, also on page 35, is the 
disassembly of that same program’s 
object code into p-codes.) Table 2 (page 
34) compares that program, written in 
Augusta, to versions written for several 
other well-known compilers (see refer- 
ences | and 2, below). 


In the May Issue 


The Augusta compiler is a one-pass 
recursive descent compiler. As the parser 
recognizes a language construct, it gener- 
ates the appropriate code. Part 3 provides 
a general description of recursive-descent 
compilers. 

(Figure 3 on page 28) 
(Figure 4 on page 29) 
(Figure 5 on page 30) 
(Table 1 on page 31) 
(Table 2 on page 34) 
(Listings 1 and 2 on page 35) 


DB, 





References for Part 2. 


‘Gilbreath, Jim. “A High-Level Lan- 
guage Benchmark,” BYTE, Sep- 
tember 1981, p. 180. 

*Gilbreath, Jim and Gary Gilbreath. 
‘‘Eratosthenes Revisited,” BYTE, 
January 1983, p. 283. 
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(Figure 3a) 


FROCEDURE Fi Is 


Wes: 


INTEGER; 


FROCEDURE F2 IS 


Kis 


INTEGER; 


FROCEDURE PS IS 


¥-3 


INTEGER; 


FROCEDURE F4 IS 


Z : INTEGER; 


REGIN 
Z s= Y3 ~~ ACCESS Y IN PS 
Z i= Xs ~~ ACCESS X IN FP? 
END: -—— F4 
REGIN 
Yi=1; 
P45 
END; -~- FS 
REGIN 
Xs=25 
Py 
END; -- F2 
REGIN 
P25 
FND; -—- Pi 
(Figure 3b) 
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: Frame : ; Static 
! Mark H H bank toe 
H H H Frevious 
9 me ve i Frame 
: xX H : 
H P2"s H 
H Frame H 
H Mark } 
' W H 
GF-> jj -~--~—--——-—--~—~—~—~—~ : 
: Pi’s : 
H Frame H 
H Mark H 
Figure 3. 


Procedures can be defined inside of other procedures, as 
shown at (a). When P4 references variable Y, the p-machine 
must traverse down the stack to the previous frame mark to 
reach Y. Similarly, a reference to X is a reference to two 
frames lower in the stack. 


—_—_—_—_—_—_—_——————— 
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(1) = Code Size in bytes + 1920 

(3) = Number af 128 byte recards in code file 
(3) = Number of procedures in proaaram 

(44) = Code File Versian Number 


File Identifier, 1 word equal ta “1i112° decimal 


Table Layout 
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Figure 4. 


Detailed layout of an Augusta code file and of memory after a program has been loaded. (a) shows the code file format, (b) 
and (c) detail the format of the header block and of the proceedure table, and (d) shows the memory layout of a loaded 


program. 


Fa hoe ee 


Dr. Dobb’s Journal, Number 77, March 1 


983 29 





End the Dark Ages of 
Assembl Language. oe 





with SMAL/80 


Assembler ; 
HL=M (PTR) ; LHLD PTR: 








: DE=9; LXI D,9: 
- HL=HL+DE; DAD D : 
- IF A-L EQUAL CMP Ls 
: THEN hs baum 2) eae 
: A=A-14 SUI. 14-3 
e ELSE JME 2s: * 
; A=L; L1:MOV A,L° 
: M(BC) =A; L2 76TAx Be 





SMAL/80 gives you the logical power, 
versatility and convenience of a com- 
piled, structured high level language 
like Pascal, Ada or C, plus the effi- 
ciency of assembly language. 


|| intuitive, processor-independent sym- 
bolic notation system to make your pro- 
grams easy to read, debug and maintain; 
|] programming constructs BEGIN... 
END, IF... THEN...ELSE, and LOOP... 
REPEAT, plus indentation, to graphical- 
ly display the structure of your algorithms; 
|] extremely flexible macro and text 
pre-processor to create your own pro- 
gramming environment; 

| compiler/linker to mix your input 
source code and relocatable object code, 
creating modular programs; 

| translator program to automatically 
upgrade your assembly code to SMAL/80; 
|] available on CP/M disks with manual 
for $150 plus $4 shipping. 


New! Z-80 version (runs on 8080’s): 
$175. 8080 version only: $150. Macro- 
processor only: $75. Available on’ 
CP/M disks. Add $4 for shipping. 
Complete tutorial text: ‘Structured 
Microprocessor Programming’’ 
(Publ; Yourdon Press) $20 plus $2 
shipping. Send for your free button 
and literature or try the Ultimate 
Demo: SMAL/80 is Guaranteed! 


Chromod Associates, 
1030 Park Ave., Hoboken, N. J. 07030 
Telephone: (201) 653-7615 


Also available from 
WESTICO (203) 853-6880 


Circle no. 27 on reader service card. 
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READ PROGRAM 
INTO MEMORY 


INITIALIZE 
REGISTERS — 


CP, PT, LF, GF, ETC. 


READ OPCODE 
AT (CP) 
CP —>CP +1 


VALID NO 
OPCODE ERROR 
? 





YES 


CALL SUBROUTINE TO 
EXECUTE OPCODE 
Example SUBROUTINES 
LDCI n LDL w ADI 















POP INTO 
TEMP1 
POP INTO 
TEMP2 
TEMP1 —> TEMP1 + TEMP2 


PUSH TEMP1 
RETURN 
Figure 5. 


Outline of Interpreter Logic 


READ WORD 
AT (LF + W) 

PUSH WORD 
RETURN 


READ WORD 
AT (CP) 














PUSH WORD 
RETURN 
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Table 1. 


The Augusta P-Code Instruction Set. 
All of the Augusta p-code instructions are shown in Table 1. The number in parenthesis is the opcode value. A “‘b” following 
the opcode indicates that there is a one-byte parameter. “‘w,” “wl,” and “w2” are 16-bit words. In the descriptions, TOS is 
the word on the top of stack, and TOS-1 is the word just below the top of stack. 


Loads and btores 


wre, 
feo 
to" 
§ 
— 
oer’ 
te. 
5 
fee 


tal ~ Load Constant Immediate Word 

Saree SUL ow —~ oad Local word at orreset wu 

( 3) LLA w ~ toad address at Local word at offset 

( 4) LDR —~ -dad the byte oointed. to by. the. pointer: in TOs. 
GT: hake ot <1 OAC glabal word at afteet w 

f 6) AQ rm ~ Load global address at affset w 


Picea Ot Ey: aR ty Load ward uo level b static links at offset w 


( 9) LOA b, w - Load address up level, as ahove. 


oft, 


11) SPQ -~ Store indirect TOS into address in TO5-1 


vere tene 


(1 SINDO —~ {oad indirect usima the address im TOS 


o- 


Cayo SLAer ~ Short Load Global data at aftset oh. rn 


Seee seee Sens 


the range O.. 255. 


(5464). Slee Se a pe Short Load address at global offset 6b. eine ae 


bf fe. 


the range 9.,.255, 


fS9) SLA b Short Load Local Address at local offset bh. 


3 
: 


(40) SLDL b Shoart Load Local data at local oaffset ob. 


(61)- SLD -~ Short Load Constant in the range O..250, 


(49) ta (56) “SEDLO: s2 SLO 
-~ Single byte opcodes ta Shart Load fecal Data at 
local offset © thraugh /, 


SLOCK I ~ Shart load negative 1 tei: 


“ 
se, 
LN ig 
- 
‘woe 


“rs, 
-, 
ET 
we, 
oqeeed 
two” 
wt 
we, 
tet 
to 3 
ry 
a 
~~" 


SDC 44) Shee ls 
sont Single byte oncodes toa shart load a Consebenk-.in 
the range © ta Is. 


C3 


Q@rray Indexing Instructions 


mt 


(24) IND ~ [Index an integer array. TOS—-1 is the address 
of the base of the array and TOS is an index 
inta the array. IND paps TOS, multiplies ut 
by 2 and adds it to TOS-1i, pushing the result. 


: (Continued on page 32) 


Har 
: 
wig 
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ccc 


(Table 1 continued from page 31) 


(4h) DXA b 
~ Index array. This 16 & generalized IND opceacie, 
where fb substitutes far the "2" multinolier., 


(ies? LORE: “ ORhares 
< Load addrese af a tring canstant. bh is the 
number af bytes an the string address, “CP eur sh 
are the characters in the constant. Musnies the 
addrese af the byte cantaining b and increments 
CE LO BPoOint ta the next instruction. Fallaowing 


LPP ss So 


(14) SAS ~ String Assi qriment. TOS 168 @ pointer to source 


Tees bere 


string and TOQS-1 points to a desatinatian. Lap. es 


eeee 
or 


bytes from the source string ta the destination strind. 


Lagical OQperatars 


(16) AND ~ Boolean AND af TOS and TOS-1 

oe ~ Woo bean CR at TOS and. Tas-tT 

(1) NOT ~ Boolean camplement. TOS «<-- NWOT Tas 
(19) ADT ~- Add the integers in VWS°-and. TOS-1. 
(20) WMO tee AS eQiual’ -TOS; 

Veo) See ~ Subtract integers. TOS-1 minus TOS. 
apa). MEE ~ Multipty integers in TOS and TOS, 
Cet wl ed - Divide integers, TOS-1 divided by TOS. 
(42) MODI ee ae i OUD 8 CaS 


faq}: THCioow ~ Inerement ward at local affset w, 
(41) “Det: ia ~ Decrement word at lacal offset w, 


Integer Comparisons 


a The camparians push -1 aif the result is true, or © 
if the camparison is false, 

eo) RAT ~ Compare TOS toa TOS—1 for equality. (=) 

C256) NEQT + ee FOS) 

Ci 2) Eo Cote’ = ROS 

(2G ioe ak m TR < gS 


(29) GEOL ~ TOS-1i == Tos 


teow 


PP 0 gs papa ame gee a ETDS 
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(30) GTRI ~ TOS-1 > TOS 


ee “owes 


String Campari sans 
TOS and TOS-1 are pointers toa the strings 
toa campare., Fouche -] af the comparison es true 
ar O a¢ the comparisan is talse., 


(31) EQUSTR ~ TOS-1 = Tas 


(32) NEGSTR TOS—1 <> TOS 
(S58) LEGSTR ~ TOS—l <= TOS 


(84) LESSTR ~ TOS: 


t 
oad 
eaves? 

; a 
A 

H 
tenets 
ame 
- 

= 
— 


(S58) GEOSTR ~ TOS—1 = TOS 


(56) GTRSTR ~ TOS—1 % TUS 


eho 
t 
a 
t 
ae 
HY 
pm oy 
£ Send 
} —, 
i 


LUTE 


z 
* 
de 


pee 
ae 

iit: 

tit 


l jumos are made relative to the location of the 
structian. 


Va/ 3° Gers ~ Uncanditional gump te w bytes away fram 
Current inetructioan. 


he ae gh ee ~ False dumm. Jump oe TUS ae oO, 
vag Ae gi AE 

~ (ase Jum inetructian. See text for descriptian. 
Pracedure Calls and Returns 


rae: Lick. ~ Call local procedure hk. 


4) Cisk hb ~ Call gqlobal procedure h. 


(455). Care ~ (all system Procechire 3. Sytem procedures 
handle ail anput/fautput., 


ei To ta Wee ee ~ Call intermediate level pracedure h. 

(45) RET ~ Return fram a procedure. 

4b) RIM —~ Return fram a function by saving the TOs value 
setting SF back before the parameters and trame 
mark far the current procedure and then restoring 
the TOS value. 

1 Bnequs 

Ie EOF ~ End of Frocedure mark. This opcode is never executed 


but is output to mark the end of a procedure’ s cade. 


(End Table 1) 
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polyFORTH Il 


Level 2 
for the IBM-PC 










@ Multitasking 


High performance multi-tasking OS. Any 
number of background tasks. Concurrent 
Operation of monochrome and color 

monitor. Concurrent printer operation. 










@ Floating-Point 


8087 Math Co-processor support, including 
complete 8087 Assembler plus high-level 

command set for floating point and integer 
arithmetic and transcendental functions. 











= Compatibility 
IBM DOS file interface utility allows access 
to files created under IBM DOS with 
FORTH's improved performance and 
power. . 












@ On-Line Documentation 


as well as over 7/00 pages of supporting 
documentation including Starting FORTH 
by Leo Brodie and 360-page Users 

Manual. 











@ Turnkey-compiler™ 
Utility for making binary turnkey applica- 
tions. Such programs can be resold 
without license fee under specific 
conditions. 













@ A Professional quaity Forth 
designed by FORTH INC at only $295. 


Its the Real Thing 


Distributed by 


Forth Technology 


432 15th Street m Santa Monica, CA 904029 


(213) 372-8493 


Cal! or write for details. Dealers inquiries invited. 
Ordering info: check, credit card or COD 
California residents: add 6%% sales tax. 
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Language 





Pascal MT+ 308 
Janus Ada — 
UCSD Pascal, Z-80 282 











UCSD Pascal, TRS-80 Mod II 282 
Augusta, Z-80 Osborne I 162 
IRT Pascal V2.0 224 
Supersoft Ada ~ 

Pascal/M | 301 
JRT Pascal 232 


CBASIC2 —~ 
Tiny -C Compiler - 















Compiled 
(bytes) 


Table 2. 
Comparison of Augusta with other languages. Chart indicates compiled program 
size and compilation/load and execute times for the Eratosthenes Sieve prime 
number generator. See references 1 and 2 (page 26) for details. 





Compile/load Execute 
(seconds) (seconds) 











102 19 
a 27 











14 239 
60 274 
30 303 
34.5 383 
a 422 
50 450 
65 470 






26 484 
96 930 
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Listing 1. 


Augusta Source Code for Prime Number Generation 


2 0 0 -- Eratosthenes Sieve Priae Nuaber Progras 
3 Q 0 -- in Augusta 

a 0 0 

3 0 Q PROCEDURE PRIME IS 

6 Q -14 PRINE,K,COUNT : INTEGER; 

7 ) 6 FLAGS : ARRAY(8190) OF BOOLEAN; 
8 Q 16388 

9 0 {16388 BEGIN 
19 0 16388 PUTLINE("10 ITERATIONS"); 

ii 17 16388 FOR ITER IN 1..10 
12 26 16388 LOOP 

13 30 16390 COUNT := 0; 


34 16390 FLAGS(O} s= TRUE; -- Initialize Array 


15 AQ 16390 MOVELEFT ( @FLAGS(O), @FLAGS(1), 16378); 
16 a3 «16390 FOR I IN 0..8190 
16390 LOOP: 
18 68 16392 IF FLAGS(I) THEN 
19 78 16392 PRIME := 1 + I + 3; 
20 90 16392 K s= I + PRIME; 
21 99 16392 WHILE K <= 8190 
22 104 16392 LOOP 


108 16392 
115 16392 


FLAGS(K) := FALSE; 
K := K + PRIME; 


25 123 16392 END LOOP; 

26 123 16392 COUNT := COUNT + 1; 
27 133 16392 -- PUTSTR("PRINE $="); 
28 133 16392 -- PUTINT (PRIME) ; 

29 133. 16592 -- NEWLINE; 

30 133 16392 END IF; 

31 133 16392 END LOOP; 

32 133 16392 END LOOP; 


139 16390 PUTINT(COUNT); PUTLINE(" PRIMES"); 
160 16388 END; 


— 
od 
o 
Sy 


Listing 2. 
Disassembly of the Object Code Into P-Codes 


Dissasseably of Augusta Program: SIEVE.CPL 
Nuaber of Procedures = 1 

Procedure # 1 

Local Size = 16392 

Parameter Size = 9 

Lex Level = | 


iffset Qpcode Yalue Parameters 
a): 13 LCA 13 "10 ITERATIONS" 
13) : 42 CSP 2 
17) : 3 LLA 16388 
20) : 65 SLDCi 
21) : {i Std 
22) : 2 LOL 16388 
23) : 74 SLDCIO 
27) : 38 FUP 115 => 145 


30): 58 SLAQ 4 


32) 3 64 SLDCO 
33) 3 {i ST0 
34) : 38 SLAG 6 


36) 3: 64 SLDCO 


37) 24 IND 


{ 
( 
( 
( 
{ 
( 
{ 
{ 26) : 27 «LEQ! 
( 
( 
( 
( 
( 
( 
( 


a te I i eS Oy at ES neg aMer apts seated anne ahah oie kes Heel weak SS rane Nea, SSM eh em, FR a ai, “oF cA en Aa A RSS ENE oN SS: TSE AN HAR FE I OU PM SS oe 


38) 
39) 
40) 
42) 
43) 
44) 
44) 
47) 
48) 
51) 
53) 
56) 
57) 
58) 
b1) 
b4) 
65) 
68) 
70) 
73) 
7A) 
75) 
78) 
80) 
83) 
84) 
87) 
88) 
89) 
90) 
92) 
95) 
97) 
98) 
99) 
101) 


104) 


103) : 


108) 
110) 
112) 
113) 
114) 
115) 


117) : 


119) 
121) 


122) : 
123) : 


126) 
128) 
130) 
131) 


132) : 


133) 
134) 
139) 
142) 
145) 
147) 
149) 
158) 


160) : 


63 
if 
38 
64 
24 


65 
24 


42 


b4 
11 


2] 
38 
28 


24 
12 
38 
38 


19 
67 
19 
if 
58 


37 
19 
{1 
37 


27 
38 


a7 
24 
64 
if 
38 
o7 
af 
19 
if 
37 
38 


89 
19 
ii 
80 
37 
80 
3 
of 
42 
13 
42 
43 


SLDCNI 

510 

SLAG 4 

SLDCO 

IND 

SLAQ 4 

SLC! 

IND 

LOCI = 16378 

CSP 12 

LLA 16390 
SLDCO 

510 

LDL 16390 

LOCI = 8490 

LEQ! 

FIP 7to=> 139 
SLAQ = 4 

LDO 16390 

IND 

SINDG 

FUP aw => 133 
SLAG 9) 

LOO 14390 

LDQ 16390 

ADI 

SLOCS 

ADI 

510 

SLAG 2 

LDO 16390 
SLOG 

ADI 

570 

SLpd 2 

LOCI =. 8190 

LEQ! 

FUP 18 => 126 
SLAQ 6 

SLD0 2 

IND 

SLOCO 

510 

SLAg 2 

sLDd 2 
sLbosi 

ADI 

$10 

aR S2beey . e 
SLAs 4 

SLp0 4 

SLDCI 

ADI 

510 

INCL =: 16390 

WP -8L => 28 
INCL =: 16388 

UEP eS a 22 
Subd 4 

CSP 4 

LCA 7 * PRIMES’ 
CSP 2 

RET 


End Listing 
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A Small-C 








Operating System 





ant to experiment with operating systems? Well, 

here is the source code of a system written in the 

programming language ‘“‘C’’ and developed using 
Ron Cain’s Small-C compiler (DDJ No. 45). 

As I was lucky enough to have had access to a UNIX 
system, I was able to bring up the Small-C compiler with a 
minimum of fuss. After a couple of weeks of spare time, I 
was able to return to the microprocessor system and run the 
compiler. It was then that the contrast between the large 
UNIX system and a micro system became obvious. In par- 
ticular, I missed the ability to redirect input/output via the 
operating system. With UNIX, any program output destined 
for the console can be redirected to go to a file. Console 
input to a program can also be arranged to come from a 
file. Both functions can be easily specified on the command 
line (see “‘echo’’ later). 

Many of the operating systems for micros were developed 
in the days when 32Kbytes of memory was a large amount 
for a microprocessor system. Now it is by no means unusual 
for even personal machines to have 64Kbytes. A portion of 
this extra capacity could be devoted to making the micro 
operating system more flexible. Initially, I was simply trying 
to add routines to the micro to implement I/O redirection. 

It was an ideal opportunity to try out the Small-C compil- 
er. However, after a very short time I found that I seemed to 
have a great many of the routines of a full operating system. 
As an exercise, I then decided to have a go and write a full 
system and this article is the result. 

I have incorporated the UNIX process of having directo- 
ries as files themselves. While this may seem unusual, it does 
lead to advantages in that many of the system routines, availa- 
ble for file access, can be used to process directory informa- 
tion. User programs can just as easily access directories as files. 

The system loads and executes user programs at 100 hex 
to make possible the execution of CP/M-compatible programs 
if the source code is not available. These programs would 
require some form of interface to translate system calls from 
CP/M convention to the form expected by the described sys- 
tem. As an alternative, the system calls described could be 
altered to give a CP/M-compatible interface. While it is possi- 
ble to add such an interface, this may not be worth the effort. 
The book, Software Tools! gives the source code of many 
useful programs, even a sophisticated editor. These are written 
in Ratfor but it is not a difficult task to translate to “C” and 
this would allow the use of more sophisticated system calls 
and make possible the transfer of programs to other systems. 

In all of my work so far, I have used the Small-C compiler 
as published (DDJ Nos. 45, 48) with modifications enabling 
backlash escape sequences in literal characters (DDJ No. 56) 
and the removal of the bugs in the arithmetic rotate routines 
(DDJ No. 52). One of the more advanced versions now being 
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sold would make the translation and compilation of any pub- 
lished “‘C”’ programs easier. Remember that source code will be 
required if you want to bring up the compiler on a new system. 

Characteristics of this operating system are: input/output 
redirection on the command line; hierarchical directories 
(directories of directories and files); directories able to be pro- 
cessed as files; a copy in memory of the pointers used in file 
maintenance (giving fast file access); a disk group of 512 bytes 
(could be altered); or pointer range of 32767 disk groups; 
parsed command line arguments passed to user programs (see 
UNIX argc, argv[ ]); and dynamic memory allocation of 512- 
byte blocks. 

A disadvantage of the system as it stands is that it has 
been developed for a one-disk-drive machine. Simultaneous 
access of multiple drives would require either swapping of the 
directory pointer blocks to/from the drives or maintenance of 
all pointer arrays in memory. While using more memory, the 
second alternative is the more time efficient. Allocating the 
top 16K of memory to the system program and the pointer 
arrays would allow the addressing of greater than 1Mbyte of 
disk space. The upper limit of disk space is the pointer range 
of 32767 disk groups or 16 megabytes with 512 byte group 
size. Large system size would make memory storage of arrays 
wasteful and an alternative file structure is described towards 
the end of this article that would be a good basis for larger 
capacity systems. 


File Structure 


There are three pointer arrays being swapped between 
disk and memory: glinks[], loptr[], and hiptr[] (see Listing 
on page 41). The largest array is glinks[]. For any group “i” 
on disk, the next group in the linked list from group “i” 
would be glinks[i]. If glinks[i] is zero, it indicates the end of 
a list of groups, i.e., end of a file (Figure 1, page 37). There is a 
linked list for each file, a list of free groups left on disk, and 
even a Short linked list that the system uses to load and save an 
image of the arrays glinks-loptr-hiptr on disk. 

Files are tied into a directory structure by the arrays 
loptr[] and hiptr[]. A directory is simply a linked list of files 
and this is achieved using the array loptr[] with loptr[k] used 
to index the next file in loptr[]. See Figure 2, page 37, fora 
pictorial representation of this and the following arrange- 
ments. If loptr[k] is zero, then the last file in the current 
directory has been reached. If the value of hiptr[] for a 
given directory element is positive, it is taken to be a pointer 
to the first group of a file, with the array glinks[ ] linking 
further groups of the file. If negative, this element of the direc- 
tory is taken to be a further directory and the negative value is 
complemented and used to index back into the directory 
array loptr[]. 

The first entry in a directory is always a file of the names 
of files in that directory, one name per line. As an end-of-line 
character is used as a name delimiter, there is virtually no limit 
to name length. The nth line refers to the nth entry along the 
loptr[ ] list for that directory. If there are 32 lines in the file 
of filenames for a directory, then it must be possible to index 
through the loptr[ ] array 32 times and find a zero in that 
element of loptr[ ], ie. the expected end of that directory list 
of files. 

The first file name in a directory file is always a file called 


€¢ 99 


. and is a reference to the file of filenames for that directory. 


a et eS ee a ee ee 
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GLINKS ARRAY 


Figure 1. 


Usage of array glinks[] to link groups of a file with first 
group number 10. The file consists of groups 10, 21, 24, 
and 2, in that order. 





LOPTR ARRAY HIPTR ARRAY 


Working 


directory. A positive value, the 


first group of a file. 


A negative value, 
complement it and 
use it to index back 
into LOPTR as it is 
a directory. 


First group of a file. 


First group of a file. 


Figure 2. 


An example of a directory consisting of four entries, the 
second of which is another directory, the others files. 
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On power-up, the system will always get loptr[2] (one of 
a few reserved locations) and assume that this pointer points 
to the user’s directory. When the system opens a file, given the 
name, it scans the directory (see “‘scndir(name),”’ system call) 
and when the line number of the entry is known, it indexes 
into the loptr[ ] array this number of times. If the hiptr of 
this entry is negative, the entry must be another directory; if 
positive, it is the first disk group of a file entry. 

As already mentioned, redirection of console input and 
output has been incorporated in this sytem. When the char- 
acter “>” is encountered on the command line, the next 
characters are assumed to be a filename, a file of that name is 
created, and any program output that would have been put to 
the console will go to that file. Similarly, the character ‘“<’’ 
indicates that any requests by the executed program for con- 
sole input will be taken from the file whose name follows the 
“<*character. 


System Overview 


The flexibility of the overall system becomes obvious 
when the simple program ‘“‘echo”’ is considered: 


main() 
{ while(putchar(getchar()));} 


Execution of this program echoes typed characters. They will 
be doubly echoed, as I have written getchar to echo any non- 
control characters. If, on the command line, we say “echo 
> newfile,’ any characters typed at the console will be re- 
directed into the file “‘newfile.” If a file by that name already 
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exists, then it will be replaced. To terminate the process, 
type control d. This gives the end of file code. Then, on the 
command line ‘‘echo< newfile’’; the file will then be listed to 
the console, as the input to echo has been redirected from 
console to come from “‘newfile.’’ “‘echo <newfile >newerfile”’ 
gives a copy of newfile into newerfile. Now ‘‘echo <.’’, the 
contents of the file ‘*.’’, which is the file of filenames for the 
current working directory, will be shown. 

When the user changes his working directory using the 
system call “‘chdir,” the value of loptr[ ] for the new directory 
is stored in loptr[3]. The default directory for the user is in 
loptr[2]. If ‘‘chdir” is called with a zero argument, the user is 
returned to his default directory from wherever he is. If a 
program to be executed cannot be found in the working direc- 
tory, the system directory will be searched by default. The 
system directory is pointed to by loptr[1]. 

A list of the system calls is in Table 1. The listing of 
“library for Small-C system programs’ gives details of how 
getchar and putchar are formed. A function that illustrates 
some system calls and is also required by the Small-C compiler 
on the new system is that of “‘fopen” (note that I have altered 
the second argument to be an “‘int’’). 


fopen(name,func) 
char name|[ ] ; 
int func; 


{ 

int buffa; 

if((buffa=alloc())==0)return 0; /* get a buffer */ 
if(func==rdfn)return (openf(name,buffa,rdfn)); 
if(func==wrfn)return (creatf(name,buffa)); 
dalloc(buffa); /* error-give buffer back */ 
return O; 


} 


System Transfer 


It is not enough to have a copy of the system code on the 
disk, as the initial directory also needs to be there and, as there 
are no intrinsic functions in the system, there should be at 
least a memory to disk save program on the disk as well. My 
memory save program takes a numeric argument and saves that 
number of groups beginning at a predetermined location. One 
way to get going would be to put sectors onto the disk manu- 
ally but there is another easier way. I started debugging the 
system by assembling it down low in memory and having the 
disk I/O routines simply doing block moves to and from higher 
memory. Simple programs and text could be loaded into mem- 
ory at the appropriate location and loaded by the Small-C 
system as if coming from disk. 


At this stage, the directory loader routine generated a 
dummy directory with three files, each of four groups (2K), a 
free group list and a free pair (loptr-hiptr) list. The free group 
list is simply a long file pointed to by hiptr[2]. The free pair 
list is a linked list of any spare loptr[ ] cells and is used when 
a new file or directory is created. This linked list of cells is 
pointed to by hiptr[1]. When the bugs were out of the system, 
I altered the disk write routine to actually write information 
to the disk. I then had a suitably formatted disk for the new 
system. After copying this disk (twice), I recompiled the Sys- 
tem to reside in high memory, altered the disk read to come 
from disk instead of memory, and the system was up. 


The system code takes up about 9.5K and the pointer 
buffers about 2.5K for my 250K drive. One system call I will 
be changing in the future is “scndir.’’ Filenames will be al- 
lowed to contain ‘‘?” (match with any character) and ‘‘*”’ 
(match with any number of characters). A second parameter 
will also be passed and this will tell scndir what line/entry in 
the directory to begin the search with. Another area that I will 
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System calls 
puterr(str) 


getc(unit) 
putc(c,unit) 
readf(unit) 
writef(unit) 


openf(name,buffer,fn) 


create(name,buffer) 
closf(unit) 


readr(unit,N ) 


writer(unit,N) 


scndir(name) 


chdir(name) 


mkdir(name) 


rmfil(name,i) 


alloc() 


dalloc(addr) 


dirfn(i) 


dirio(rw) 


Descriptions 


Put a string to the console (cannot 
be redirected, used for error 
messages). 


Get a character from “‘unit,”’ 
unit=0 standard input, unit=1 the 
communication port, returns 
character or 0 on end of file. 

Put a character to “‘unit”’ (see getc), 


6,99 


returns **c’’. 


Read the next sequential group on 
opened file, returns 0 on end of 
file. 


Write the next sequential group. 


Open “name”’ for read(fn=1) 
write(fn=2) or append (fn=3) with 
‘buffer’ as the buffer address, 
returns a unit number or 0 if not 
found. 


As for openf, write assumed, any 
old file by that name is lost. 


Close the given unit number, 
flushes write buffer if required. 


Read nth group from opened unit 
number, returns 0 if out of file 
group range. 


Write nth group to opened unit 
number, returns 0 if out of range. 


Scan the working directory for 
‘“‘name,’’ returns number of entry in 
directory, 1 ton or 0 if not there. 


Look for ‘“‘name’’ in the current 
directory and if it is a directory, 
change operations to it, if name== 
changes back to root directory of 
user. : 


Create a new directory “‘name,”’ 
returns a O if name in use. 


Remove directory entry “‘name,”’ if 
not found, returns 0. Won’t allow 
rmfil(‘..’’. If i” is 0, won’t allow 
directory entry removal. If “‘i”’ is 

1, a recursive remove of the entry 
is undertaken, directory or file. 


Return the address of the next free 
top 512 byte block of memory. 
Addr will lie on a 512 byte 
boundary. 


Give back a 512 byte block of 
memory for future use. 


For directory information: i=0 re- 
turns ptr to glinks[], i=1 returns ptr 
to loptr[], i=2, returns ptr to hiptr. 


Refresh or save the directory 
pointer arrays: rw=1 (write) gives a 
save to disk, rw=2 (read) gives a 
refresh from disk. 


Table 1. 
System Calls. 
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be modifying will be the system of group linking for disk files. 
The group links will be part of the files on disk eliminating the 
large array “‘glinks’’ (Figure 3). 


Data groups of the 


First group used as file 


pointers to groups. 


Last pointer links 
to another group 
of pointers. 


Figure 3. 


A proposed file structure that would remove the need for 
an in-memory array of group links (glinks). 





Conclusion 


While I have a compiler on the system (courtesy of Ron 
Cain), I do not yet have an assembler for it. If any reader has 
written an assembler (in Small-C?) for 8080 mnemonics, I 
would like to hear from them. Good luck! 


(Listing begins at right) 


BBY 
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Editor’s Note: For those who have not yet implemented the 
Small-C compiler published in DDJ, some back issues are still 
available. The greatly improved Small-C v.2, by J.E. Hendrix, 
is available in issues #74 and #75. Ron Cain’s version one of 
the compiler, along with bug fixes and patches, can most easily 
be found in our Bound Volumes. 
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Small-C Operating System (Text begins on page 36) 
Listing One 


/**® operating system written in Smal1l-C HR / 

/** Rrian McKeon 5/5/22 4% / 

#define eol 10 /* end of line char */ 

fdefine bufsiz 512 /* disk buffer size */ 

/** some memory control ¥X/ 

#define usrprg 256 /* start and entry point of user program */ 
int memmap[8]; /* bitmap of 512 byte blocks of memory */ 
/** and directory structure #R/ 


#define dirone 22 /* ptr to 1st grp of glinks-loptr-hiptr */ 
#define Inksiz 590 /* one link per 'bufsiz' bytes */ 

int glinks[{lnksiz]; 

#define ptrsiz 50 /* seems to be enough */ 

int Joptrtptrsiz]3 

mt hiptr(ptrsiz]; 

/** First few pointer pairs have special functions **/ 

/** zero ptrs are set to to 9 as traps yal 
#define rsvptrs 4 /* reserved system pointer pairs */ 
#define sysdir loptr[1] /* ptr to system dir struct */ 
fdefine userdir loptr[2] /* ptr to root dir of user */ 
define workdir loptr[3] /* ptr to -current- user dir structure */ 
“define freptr hiptr[1] /* ptr to free dotted pair list */ 
define grpfree hiptr[2] /* ptr to first free disk group */ 


/**® i/o structures *% / 
tHe stdout; /* and for standard output */ 
define maxunits 10 /* max no. simul open files */ 


#define minunit 2 /* 0, 1 reserved for console and communication port. */ 
int grw(maxunits]; /* 0 if free, 'rdfn' for read and 'wrfn', write * / 
#define rdfn 1 
#define wrfn 2 
#define anfn 3 /* append, used for openf call only ¥/ 
/**® structures to keep track of file i/o **/ 


int firgrp{maxunits]; /* first group of a file group list */ 

int Inkerp[maxunits]; /* link group for sequential i/o */ 

int gbuffs{maxunits]; /*® addr of the buffers assoc with a unit */ 
int gptrs[maxunits]; /* pointers into these buffers */ 

char sysinp[bufsiz]; /* system input buffer */ 

char sysout[bufsiz]; /* and output buffer */ 

/*® command line argument passing to user programs RE / 

int arees /* argument count */ 

int arevt 101; /* array of ptrs to argument strings */ 


/**® line input buffer - argv[] strings **/ 
tdefine maxlin 128 /* max line input size */ 
char linbuf[maxlin]; /¥® tine input buffer *7 
/** main entry point for system **/ 
/* call the system with the desired i/o parameters wf 
/* with argO the number of the system call */ 
/* */ 
asm 

org OaN00h 
fendasm 

/* 0a000 gives blocks 1 to 79 spare *y 

“define maxblk 77 /* leave a couple of blocks for stack: 47 
system(arg0,arg1,arg2,arg3) 

int argO,arg1,arg2,arg3; (Continued on next page) 

i a a ela ae 


Dr. Dobb’s Journal, Number 77, March 1983 4] 








Small-C Operating System (Listing continued, text begins on page 36) 


{ 

int munit,savedir;: 
if (argO==0)return 

if (argO==1)return 

if (argO==? )return 

if (arg0==3 )return 

if(argQ==4)return 

if(arg0==5) return 

if (arg0==6)return 

if (argO==7)return 

if (argO==8)return 

if (argO==9 )return 

if (arg0==10)return 
if (argN==11)return 
if (argO==12)return 
if (argO==13)return 
if (argO==14)return 
if (argO=+15 return 
if (arg0==16)return 


(puts-Care)): LE pot Str ie. stderr Ay 
(gete(arg1)); /* char fetch */ 
(pute(argi,arg2)); /* char put */ 
(readf(arg1)): /* sequential read */ 


(writef(arg1))3;. /* sequential write ¥*/ 
Copenf(arg1,arg2,arg3))3; /* open a file */ 
Cereatflarg1;arg2)): /* create a file.*/ 
(closftang 1.) eS P xe lose a wit F/ 
(readr(arg1,arg2)); /* read random grp */ 
(writer(argi,arge2));3; /* write random */ 
(sendir(arg1)); /* sean dir for file name */ 
(chdir(arg1)); /* change directory ¥*/ 
(mkdir(are1)); /* make new dir ¥*/ 
(rmfil(argl,arg2)); /* remove file-directory */ 
Calloe()); /* get addr of free blk */ 
(dalloc(arg1)); /* de-alloc a mem blk ¥*/ 
(dirfn(arge1)); /* give addr of dir in mem */ 


if(arg0==17)dirio(wrfn); /* go system, save the dir ¥/ 
else: Lindtslysdinio(rdfn): 


puts("illegal 
} 


system call >17: directory restored\n"); 


While(1) /* command interpreter loop #/ 


{ 
inits¢); 
puts("s "); 


/* re-initialize stk, i/o, hardware */ 
/* prompt to user */ 


if ((munit=getlin(linbuf))==0)continue; /* get command */ 
if(parslin(linbuf,munit)==0) /* parse into arge, argv */ 


continue 


: /*- on parse error */ 


if ((munitzopenf(argv[0],sysinp,rdfn) )==0) 


{ 


if (workdir==sysdir){puts("open error\n"):continue: } 


else 


{ 


savedir=workdir; /* save the working dir */ 
workdir=sysdir; /* and look in the sys dir */ 
munitzopenf (argv[0],sysinp,rdfn): 
workdir=savedir; 

if(munit==0){puts("open error\n")scontinue: } 


} 
} 


if Cloadf(munit)==0)continue; /* and load the file ¥*/ 


closf(munit); 


/* close the loader unit ¥*/ 


usrpre(argc,argv); /* call the loaded user program ¥*/ 


closf (stdout) 
dirio(wrfn); 
} 

} 


: /* flush the output if any */ 


/* and save the dir #*/ 


/*®* get the next line of input from the console */ 
/* all white space is replaced by nulls (9) for parsing */ 


#define backsp & 
getlin(buffa) 
char buffa[]; 
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{ 


iin KS 
enar. -e3 
k=05 


while(k<maxlin) 
{ 
czinchar(); 
if (c==seol) break; 
if (c==backsp) 
i 
Fie} {Sk tontchar te) 33 
continue; 
} 
if(e<a" 4 ost 
buffal k++ l=c;3 
} 
buffatk ps0: 
return k; 
} 
/* parse a line into arge, argv and also re-direct i/o */ 
parslin(str,nchar) 
ehar stress 


int nenars 
f 


u 


int pt,endarg; 


c 


char lastc;3 (Continued on next page) 
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Small-C Ope rating System (Listing continued, text begins on page 36) 


plserfo=at< 
argvlOl]=&str[0]; 
while(1) 
{ 
while(str[pt])++pt; /* move over argument */ 
while(stirtptl=s0)4+pt: /® and nulis */ 
if(pt>nchar)break; /* finished? */ 
if (strigtvjcs* >") /* check for re-direction */ 
{ 
if ((stdout=creatf (éstr[pt+1],sysout) )==0) 
{puts("i/o redirection error\n"):return 03} 
} 
else if(str[ptJ=='<') 
{ 
if ((stdin=openf(éstr[{pt+1],sysinp,rdfn) )==0) 
{puts("i/o redirection error\n"):return Os} 
} 


else argv[++argce]=&str[ptl]: 


return ++argc; 


} 
/* open a given file name for file i/o */ 
/* from the current directory wd 


/* rwis 'rdfn' for input, ‘'wrfn' for output and 'apfn' for append */ 
openf (name, buffer,rw) 

char nanel],bufferf]; 

int rw3 

f 


ive. TLlnes 
if((filno=sendir(name))==0)return 0: /* find file name */ 
return (openit(filno,buffer,rw)): 


} 


/* lower level open operates from number entry of file in. dir */ 
/* for example 1 would open the dir file itself */ 
/* the append function should only be used with null terminated */ 
/* files as it searches for this null char. */ 
openit(filno,buffer,rw) 
int fFilnes 
char buffer[]; 
int. rw: 
{ 
LnGIAK pre. 
L=workdir: 
while(--filno)izloptr[il]; /* down the dir list ¥%/ 
if(hiptr[il<0)return 0; /* attempting to open dir? ¥/ 
if((filno=findio())==0)return 0: /* any i/o units left? ¥*/ 
firgrp[filnoJ=hiptr[il: _/* pointer to first grp of file */ 
gbuffs[filnol=buffer; /* setup buffer location =} 
if (rwe=rdfn) LP Cea iF TRy 
{ 
erwlfilnolj=rdfn: 
Inkerp[filnoJ=hiptr[il:/* read from this First group */ 
gptrs{filnoJj=bufsiz: /* initialize the pointer ¥*/ 


} 
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else if (rwzewrfn) f* write 2.3t/ 


{ 

freriTthistr! 1d): /* free up the old grouns */ 
Wiper lie: /* initially append null */ 
erw(filnol=wrfn; Je Uprce PF 


Inkerp(filno]=-i; /® Bye —): indieate.a link tbo. the dirt «*/ 
gptrs[filno]=9; /* initialize the pointer */ 
} 

else if (rw==apfn) /* append ? */ 


{ 


/* get to the last group */ 
grpzhiptr{il; 


if(glinks[grp]==0)lnkgerp[filno]=-i; 
else 
{ 


while(glinks[glinkslprp])!=+O)erp=zglinkslerp]; 
lnkerp( fiinoed=erps ‘/* 2rd Last erp: */ 
grpselinkslerp]; f= Last.2erp -*/ 
} 
if(grupio(erp,buffer,rdfn)==0)return 0; /* read last pgrp */ 
frefilterp): /* and give it up */ 
erwlfilnol=ewrfn; 
katt 


(Continued on next page) 























| WILL BEAT ANY COMPETITOR'S PRICE 
PROVIDED IT IS NOT BELOW MY COST. 
TRY TO BEAT THESE IC PRICES: 


VICFORTH' by HES: 
Rated Best! 


DYNAMIC RAM 
64K 200 ns $4.85 





64K 150 ns 5.10 
16K 200 ns no 
EPROM 
2764 300 ns $8.00 
eice 450 ns 4.15 
2716 450 ns S30 
2532 450 ns 4.70 
STATIC RAM 
6116P-3 150 ns $4.40 
2016 100 ns 4.00 
2114 200 ns 1.60 
Z80A FAMILY 
CPU, CTC, or PIO $3.39 
DART 8.25 


DMA or SIO/0 12.50 





MasterCard/VISA or UPS CASH COD 
Factory New, Prime Parts 


MICROPROCESSORS UNLIMITED 
24,000 South Peoria Ave. 
BEGGS, OK. 74421 
(918) 267-4961 


Prices subject to change. Call for volume prices. Subject to available quantities. 
Shipping & Insurance extra. Cash discount prices shown. 






Jan. 20, 1983 
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“Creative Computing” Maga- 
- Zine rated VICFORTH™ as 


the best FORTH program 
available for VIC 20. Itisa 
complete program in easy- 
to-use cartridge form. Fea- 
tures include a superb editor 
Varo mie) i me eles iant-1alt- lean 


HES software is available at 
V(o]0] mm (eler-| mere) ag) e]0) (1 m-je)c-me)s 
by writing direct to: 

Human Engineered Software 
71 Park Lane 

Brisbane, California 94005 
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Small-¢ Ope rati ng System (Listing continued, text begins on page 36) 


while(buffer[k]!=0)++k; /* go to the old eof */ 
gptrs[filno]=k; /* pointer now ready for append */ 


return .tiinoc: 


/* create a file */ 
creatf (name, buffa) 
char name[],buffal[]; 
{ 
int unit,k,l,newfree; 
if((Cerpfree==0);}(freptr==0)} (name[01==0))return 0; 
if (unitzopenf(name,buffa,wrfn))return unit; /* in the dir? ¥*/ 
if (Cunit=openit(1,buffa,apfn))==9)return 0; /* no, open the dir */ 


k=workdir; /* and append the file */ 
while(loptr[k])k=loptr{[k]; /* go down the dir list */ 
newfree=loptr[freptr]; /* get a new free pointer */ 
loptr[kJ=freptr; /* and add to the directory */ 
loptr[{freptr]=0; /* append a null */ 

hiptr[freptr]=0; /* and no groups */ 

freptr=newfree; /* up-date free pointer */ 

Pe: /* errors after this. point are fatal */ 


while(name[1]) /* append the name */ 
if (pute (name[1++],unit)==0) 7® toc the dir’ Tile */7 
createrr(k): 
if (pute(eol,unit)==0) 
createrr(k); 


elosf (unit); /* and close the directory */ 
return (openf(name,buffa,wrfn)); /* openf should now work ¥/ 
} 


/* fatal error routine from create function */ 
/* dont flush the dir buffer as there is an error somewhere ¥*/ 
createrr (k) 

bey: 4st 

{ 

int oldfree; 

oldfree=freptr; 

freptretontr ler: 

loptrik] <0; /* re-terminate the dir */ 

loptr(freptr J=oldfree; 

puts("fatal failure on file create\n"): 

system(17,0,0,0); /* and try to recover */ 

} 


/* close a given unit number */ 

closf (unit) 
ILne.unies 
{ 
int. 
ke13°./* default return value ’*/ 
ifCunit<minunit)return 0: /* trap illecal close */ 
if((grwlunitJ==wrfn)&(gptrsf{unit]!=9)) /* write required? */ 

k=ewritef (unit); 
grwlunitj=0; /* now free up this unit */ 
return ck. 
} 
a tg lt he RD og ae or ge ae ae fh 
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/* look for a spare unit number else return 0 */ 
findio() 

{ 

int. kK 

k=eminunits 

while(k<maxunits) 

{if(erwihk]==0)return k;4+4+k;} 
return 0; 


} 


/* scan directory for a matching line to the given one */ 
/* and return a number 1 to N, else zero if not found */ 
scendir (name) 

char name[]; 


{ 
int- Tinnum, marti ©, kK; 7-423 
ehar.:cs 


if(name[0J==0)return 0; 
if((munitzopenit(1,sysinp,rdfn))==%)return 0; /* open dir for read */ 
Llinnum=9; 
while(1) 
{ 
ec Be 
ws0. 
++linnum; 
while(1) 
{ 
if ((cegete(munit))==0){closf(munit);return C;} 
if (c==eol) break; 
if (c!=name[k++J)flg=0; 


} 
if ((name[k]==9)@flg){closf(munit);return linnum; } 
} 
} 
/* put an error messafe to the console */ 
puts(str) 
char “strijs 
{ 
int J; 
j=05 
while((outchar(strf[ j++]))!=0); 
} 


/* get a character from a given unit number */ 
getc (unit) 
int..unit’ 
{ 
cnar64 
if Cunit==0)unit=stdin; /* standard in? — re-direct */ 
if(unites=O0)return (inchar()); /* console port */ 
if(unite=1)return (incom()); /* communication port */ 
if(grwlunit]!=rdfn)return 9; /* open for read? */ 
if (gptrs{unit ]==bufsiz) /* get pointer — empty? */ 
ift{readf(unit)==0)return:.0; 
e=*(ebuffsfunit ]+gptrsfunit]); 
++eptrs(unit]; 
rEATBCN=EC; 
} (Continued on next page) 


i 
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Small-C Operating System (Listing continued, text begins on page 36) 


/* sequential read of file */ 
readf (unit) 
ant. unit: 
{ 
Lib. US CLeriy 
if(grwlunit]!=rdfn)return 0; 
entrs unit J=02 
nxterp=lnkprpfunit]: 
InkgerplunitJ=glinks[nxtgrp]; /* update grp no. */ 
return (grupio(nxterp,gbuffsf[unit],rdfn)); /* refill buffer */ 


/* random read of file group, range 0 to N */ 
readr(unit,grpno) 
int ‘unit, erpno: 
{ 
int: Rae. 
if (grwlunit]!=rdfn)return 0; 
rdgerp=firerpfunit]; 
while(grpno--)rdgrp=plinks(rdgrp]; /* down the file erp list ¥*/ 
return (grupio(rdgrp,gbuffsfunit],rdfn)): 
} 
{* put-asehnaracter: toa gsiven-i/o unit */ 
pute(c,unit) 
char c;3 
int unit: 
{ 
if (unit==0)unitestdout: /* standard out? - redirect */ 
ifCunit==0)return (outchar(c)); /* console port */ 
if(unit==1)return (outcom(c)); /* communication port */ 
if(erwlunit]!=2wrfn)return 0: /* write unit? ¥*/ 
if (gptrs(unit ]==bufsiz) PT ee er ee Z 
if(writef(unit)==C)return 0; 
*(gbuffsfunitJ+gptrs[unit] )=c: 
++eptrsfunit];: 
return c;3 
} 
/* write sequential to given unit */ 
writef(unit) 
int: unit: 
{ 
int newerp; 
if(grwlunit]!=wrfn)return 0: 
gptrsfunit]=0; 
newerp=freprp(); /* get a new group */ 
if (1Inkerpfunit]>0)¢linksf{inkerplunit]Jenewerp: /* link *#/ 
else hiptr[-Inkgrp[unit]]=newerp; /* special case: link to dir ¥/ 


Inkgrp[unit]=newerp; /* and ready for next call */ 
return (grupio(newgrp,gbuffslunitl,wrfn)): 
} 


/* random write of file proup, range 0 to N ¥/ 
writer (unit, grpno) 
int unit,egrpno; 
{ 
int wrerp; 
if(grwlunit]!=wrfn)return 0; (Continued on page 50) 
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ee [J be 28 i DEVICE- INDEPENDENT 
we CP/M GRAPHICS 


QCAL(tm) emulates the Calcomp(tm) Basic Subroutine 
Package. The QCAL user (with Microsoft(tm) 
FORTRAN) may employ the industry standard calls 
(PLOT, AXIS, SYMBOL, etc.) but utilize many 
available graphic output devices. A generation of prior 
graphics application software becomes accessible under 
CP/M(tm), and new programs using QCAL handle graphics 
in a time-proven, standardized, and transportable 
manner. Metric capability is built-in. 


| — QCAL (at $295 on 8" SD diskette) includes manual, 
_ sample programs, relative object for the emulated calls, 
i . source for fonts (7 US and West-europe alphabets), and 
source for one sample graphics device driver. Available 
choices are HIPLOT(tm), Watanabe(tm), and NEC 
Spinwriter(tm). Custom fonts and drivers are easily 


created using supplied documentation. 





ANNOUNCING 
THE C86™ C COMPILER 

— THE COMPILER THAT SPEAKS 
THE LANGUAGE OF THE FUTURE! 


Kernighan and Ritchie’s book, The C Programming Language, is 
the key source for C. Just as fundamental is the C861™ C 
Compiler. 


The C86 ™C Compiler is especially designed for the iBM® 
Personal, IBM® Display Writer, CP/M-86® and MS-DOS® 


For further information on the C programming language 
and the C86 ™ C Compiler, please contact: 


QCAL was part of the US exhibit at "Europe Software 
82", The Netherlands, and is now used by scientists, 
engineers, and consultants around the world. 


QCAL (tm) Tesseract Associates; Calcomp (tm) 
California Computer Products, Inc.; Microsoft (tm) 
Microsoft Corp.; CP/M (tm) Digital Research, Inc.; 
HIPLOT (tm) Houston Instrument division of Bausch & 
Lomb; Watanabe (tm) Watanabe Instrument Corp.; 
Spinwriter (tm) NEC Information Systems, Inc, 





i 


ae 
Soe 
TESSERACT. ASSOCTAIES 


STINSGN LAKE ROAD 
(USA) 


RUMNEY. NH 03266 
(603) -786-9561. (617) -964-6740 


Computer Innovations, Inc. 
75 Pine Street 

Lincroft, New Jersey 07738 
Telephone: (201) 530-0995 


C86 is a trademark of Computer Innovations, Inc.. CP/M-86 is a 
trademark of Digital Research; IBM and MS-DOS are registered 
trademarks of International Business Machines, !nc 
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FORT 


Version 2 For Z-80, CP/M (1.4 & 2.x), 
& NorthStar DOS Users 


The complete professional software system, that meets 
ALL provisions of the FORTH—79 Standard (adopted Oct. 
1980). Compare the many advanced features of FORTH— 
79 with the FORTH you are now using, or plan to buy! 
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Ver. 2 For your APPLE IT /11+ 


The complete professional software system, that meets 
ALL provisions of the FORTH—79 Standard (adopted Oct. 
1980). Compare the many advanced features of FORTH— 
79 with the FORTH you are now using, or plan to buy! 


FEATURES OURS OTHERS 


















































79-Standard system gives source portability. YES FEATURES OURS OTHERS 
Professionally written tutorial & user manual 200 PG. 79:-Standardis ; Tr 
; - ystem gives source portability. YES 
Screen editor with user-definable controls. YES Professionally written tutorial & user manual. 200 PG. 
Macro-assembler with local labels. YES Screen editor with user-definable controls. YES 
Virtual memory. YES Macro-assembler with local labels. YES 
Both +3 & 16-sector format. YES Virtual memory. YES 
Multiple disk drives. YES BDOS, BIOS & cunsole control functions (CP/M). YES 
Double-number Standard & String extensions. Yeo FORTH screen files use standard resident 
Upper/lower case keyboard input. YES file Forms YES 
= ean oa Reais a Double-number Standard & String extensions. Yes 
| l Y 
Z-80 CP/M Ver. 2.x & Northstar also available YES peo. efi Recennmanoe AL f ee 
Affordable! | $99.95 Attcidabiel $99.95 
ee ee oe YES Low cost enhancement options; 
oP ms Floating-point mathematics VES 
Floating-point mathematics. YES ‘Tato rink etereacde-placual 
ee eae we ee ania, 50 functions (AM951 1 compatible format) 
AM9511 compatible. Hi-Res turtle-graphics (NoStar Adv. only) YES 
) ; FORTH-79 V2 $99 95 
FORTH—79 V.2 (requires 48K & 1 disk drive) $ 99.95 “ 
ENHANCEMENT PACKAGE FOR V.2 Shee. PACKAGE FOR-Y.2: «Geer 
Floating point & Hi-Res turtle-graphics $ 49.95 . 
COMBINATION PACKAGE $139.95 COMBINATION PACKAGE (Base & Floating point) $139.95 








(advantage users add $49.95 for Hi-Res) 
(CA. res. add 6% tax; COD & dealer inquiries welcome) 





(CA res. add 6% tax: COD accepted) 












MicroMotion 
12077 Wilshire Blvd. # 506 

L.A., CA 90025 (213) 821-4340 
Specify APPLE. CP/M or Northstar 
Dealer inquiries invited. 


























MicroMotion 
12077 Wilshire Blvd. # 506 

L.A., CA 90025 (213) 821-4340 
specify APPLE, CP/M or Northstar 
Dealer inquiries invited. 
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Small-C Ope rating System (Listing continued, text begins on page 36) 


wrerp=firerplunit]; 
while(grpno--)wrerpz=glinks[wrerp]; /*-down the file grp list */ 
return (grupio(wrerp,gbuffslunitl],wrfn)); 
} 

/* free up a list of groups */ 

frefil(grp) 
2G. rps 
{ 
int ferp:)/*.a pointer to the -first free..group:*/ 
if (erp==20)return:0%). 7" dont: tase the free List */ 
ferp=erpfree;: /* a pointer to the, first free group */ 
erpfreezerp; /* point free list at the file */ 
while(glinks[erp])erp=glinks[erp]; /* go to end of file */ 
Sea iaaiuees a /* and link on the old free list */ 

/* get a free group */ 

/* null terminate */ 


fregerp() 
{ 
rt erp. 
erpsprpfree; /* find the next free group */ 
erpfreez=plinksferp]; /* update the free pointer */ 


glinks[erp]=0; /* and null terminate the returned group link */ 

















COPY II PC allows you to backup your 2? COPY II PC is a complete replacement 
e protected software. And unlike other e for “DISKCOPY” on your PC-DOS 

backup programs, COPY II PC makes exact diskette. It formats, copies, then verifies the 

copies without modifications to the software on duplicate disk (DISKCOPY does not verify). 

the duplicate disk. This assures maximum COPY II PC automatically uses all the 

reliability and compatibility with the widest memory in your PC, and adjusts for 

range of protection schemes. COPY II PC single/dual sided diskettes. A drive speed 

handles sector timing, multiple sector sizes, and utility helps keep your drives in top condition. 

bad sector ID’s as used for disk protection 

verification. 


For your convenience, COPY II PC is not copy-protected. 
Available at fine computer and software stores or direct from: 


Cte PO. Box 19730-203 
ENTRAL POINT Heditard OR 97219 $39" 
Software, Inc. (503) 244-5782 


ATTENTION APPLE OWNERS: Call us about backing up your protected software with Copy II Plus! | 
EE —_—_aa aaa 


Circle no. 41 on reader service card. 





50 Dr. Dobb’s Journal, Number 77, March 1983 








eee aaa aaaaaaaaaamaaaaaaamaamaaaamaaaaaaaaa aa a ay 


return: erp; 


} 


/* load a program, checking for oversize and for jump at start */ 


loadf (unit) 
Lee unit. 
{ 
Lov frp yaddr OTK: 
char ujump; 
grp=lnkerpLunit]: 


/* get the first group */ 
addr=usrpreg; /* load into the 


user area */ 


blkzaddr>>9; /* and allocate mem as you go */ 


while(erp) 
{ 


if (blk==maxblk){puts("program too large\n")s:return 0: } 
if (grupio(grp,addr,rdfn)==0){puts("load error\n")sreturn 03} 


addrzaddr+bufsiz;: 


fixblk(+4+blk); /*® allocate the mem */ 


erp=plinkslerp]; 
} 


ujump=*usrpre; /* should be the jump byte if a program */ 
if (ujump!=-61){puts("not a program\n"):return 03} 


return it: 


} 


(Continued on next page) 





A Professional Quality Z80/8080 Disassembler 


REVAS Version 3 


Uses either ZILOG or 8080 mnemonics 
Includes UNDOCUMENTED Z80 opcodes 
Handles both BYTE (DB) & WORD (DW) data 
Disassembles object code up to 64k long! 
Lets you insert COMMENTS in the disassembly! 


A powerful command set gives you: 


INTERACTIVE disassembly 
Command Strings & Macros 
On-line Help 
Calculations in ANY Number Base! 
Flexible file and I/O control 
All the functions of REVAS V2.5 


REVAS: 


Is fully supported with low cost user updates 
Runs in a Z80 CPU under CP/M* 
Is normally supplied on SSSD 8” diskette 


Revas V 3...$90.00 Manual only...$15.00 
California Residents add 6%% sales tax 


REVASCO 
6032 Chariton Ave., Los Angeles, CA. 90056 
(213) 649-3575 


“CP/M is a Trademark of Digital Resaerch, Inc. 
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FORTH-32° 


The language for the IBM PC 


hy use a language which limits your program size to 
64K? Now you can program using the entire IBM®PC 
memory with the FORTH-32™ segment sensing language. 


The FORTH-32™ DEVELOPMENT SYSTEM features 
intermixed 16 and 32 bit addressing modes with FORTH-79 
compatibility. DOS interface, full screen editor, assembler, 
decompiler, graphics, CASE verb, and debug. User controlled 
!/O with communications to three parallel and two serial 
ports. Complete video monitor, joy stick, sound, and light pen 
interface. Learn to program in FORTH-32™ in an afternoon 
with our 400 page self-teaching manual. Brochure available. 
$150. 


The QUEST PACKAGE BUILDER UTILITY transforms user 
developed programs into copy-protected marketable 
software packages by building on disk a condensed 
executable image with only those FORTH verbs needed. $50. 


The QUEST floating point and math library provides single 
and double precision. Software version $50. 8087 version 
$50. 


FORTH-32 AND QUEST ARE TRADEMARKS OF GUEST RESEARCH 
IBM IS A REGISTERED TRADEMARK OF IBM CORPORATION 


Quest Research, Inc. 


@@ P.O. Box 2553 @ Huntsville, AL 35804 m 205-533-9405 EE 
Toll Free 800-558-8088 
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Small-C Ope rating System (Listing continued, text begins on page 36) 


/* save/restore the directory structure to/from disk */ 


dirio(rdwr ) 
int rdwr; 
{ 
int erp,addr; 
gerp=dirone; 
addr=glinks; 
while(erp) 

{ 


if (grupio(grp,addr,rdwr)==0)return 0; 


grpzglinkslerp]; 
addrz=addr+bufsiz; 
} 
} 
/*® change work directory */ 
ehdir (name) 
char name[]; 


{ 
int..pt~n 


if (name==0){workdir=z=userdir;return; } 
if((n=sendir (name) )==0)return 0; 


pt=workdir; 


while(--n)ptzsloptr[pt]; /* down the dir list */ 
if Chis ript)>20)return. O57" not. adirectory -*7/ 





MicroScript 


Are you wasting valuable time trying to format 
complex documents with a word processor or ob- 
solete text formatter? 


MicroScript™ is a state of the art text formatter 
specifically designed for the production of technical 
manuals, specifications, and other complex documents. 
This powerful tool pays for itself the first time you use it. 
Featuring: 


e generalized markup e floating text blocks 
e left alignment e footnotes 

e center alignment e variable line spacing 
e right alignment e widow supression 


¢ justification e section numbering 


e left indention e imbedded documents 
e right indention e automatic lists 
e bold text e macro processing 
e underscored text e symbol processing 
e proportional spacing e table of contents 
e fully definable page e direct printer control 
e multiple columns e initialization profile 
e headers and footers © page numbering 
$99 postpaid within U.S., outside U.S. add $10. CA residents add 6%. Specify 
CP/M-80*, CP/M-86*, MS-DOS*, or PC-DOS*; printer type; disk format. 
Software Technique™ 
6531 Crown Blivd., Suite 3A 
San Jose, CA 95120 
(408) 997-5026 


* CP/M-80, CP/M-86 trademarks of Digital Research, MS-DOS trademark of Microsoft, PC-DOS 
trademark of IBM Corporation. 
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ChildWare” 


Announcing A New Development in 
Electronic Educational Products 


Designed and Developed by 


Ramon Zamora 
and 
Glenn Sherwood 


The ultimate game is learning. 


For further information contact: 


Craig Harper 
ChildWare Corporation 
842 Coleman Ave. #21 
Menlo Park, CA 94025 


©1983 by ChildWare 
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workdire-hiptriptl; “/* it 18°a.dir,: chenge .*/ 


/* make a new directory */ 
nkdir (name) 
char name[]; 
{ 
int pt,n,newfree; 
if (nsopenf (name,sysinp,rdfn) ) 
{closf(n)sreturn 9:3} /*®* name is in use !°> #/ 
if ((n=creatf(name,sysinp))==0)return 0; /* cannot create */ 
closf(n); /* got the name entry, close it */ 
pt=workdirs; 
while(loptr[ pt] )pt=loptr[ pt]; /* name must be last on dir-list ¥*/ 
newfree=loptr[freptr]; /* get the new free pointer ¥*/ 
hiptr(€pt]=-freptr; /* link on a cell (- to indic dir) */ 
pt=freptrs 
freptr=newfree; /* update the freptr */ 
loptr[pt]=0; /* empty dir */ 
hiptr({ptl=fregrp(); /* and the directory file erp itself */ 
return (grupio(hiptr[pt],".\n",wrfn)): /* dir contains '.! only */ 
} f* 7 jen tesel ft #/ 
/* remove a directory-files structure */ 
rnfil(name,flg) 
char namef]; 
Lint - tig? 
{ 
int hry prepeur ot. pastnir: 
if((n=sendir(name))==0)return 0: /* in the dir? ¥*/ 


1s 

--1; 

if (iz=0 }return 0: /* dont allow rmfil(".",x) ¥*/ 

preptr=workdir: /* and go to the link before the entry */ 


while(--i)preptr=loptr[preptr]: 
pt=loptr[preptr]; /* the entry */ 
postptr=loptr[pt]; /* and the one after ¥*/ 
if(Chiptr(pt]<o)é@(flet!=1))return 9; /* remove dir? ¥/ 
if(rmname(n)==0)return 0; /*® now remove the n th. name * / 
loptr[preptr]=postptr: /* link around */ 
loptr[{pt]J=0; /* and terminate to restrain ‘remove! */ 
renmove(pt); 
return Ts 
} 
/* remove the n th. name from the work directory */ 
rmname(n) 
Lic. the 
{ 
int obuf ,ibuf,ounit.,.2unit,] jwrtfle: 
char c}3 
wrtflgs=obuf=iunit=ounitsd; 
while(1) /* but only used for one-pass flow control */ 
{ 
if ((ibufsalloc())==0)return 0; 
if (Cobuf=alloc())==N) break: 
if ((iunitzopenit(1,ibuf,rdfn))==9)break: 
if (Counit=openit(1,obuf,wrfn))==0)break: 


T=t3 
wrtetle=1: f* writing filae #7 
while(c=pgete(iunit)) (Continued on next page) 


ee 
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Small-C Ope rating System (Listing continued, text begins on page 36) 


{ 

ifFi(nssTONPurie=0 5 /* suppress this entry? #*/ 
if(wrtflg)pute(c,ounit); 

if(c==seol) {+4+liwrtflg=1;} 

} 

pute(N,ounit); 

wrtflg=1;break; 

} 
closf(iunit):closf(ounit);dalloc(ibuf);dalloc(obuf); 
return wrtflg; /* will be 0 on an error */ 

} 
/* recursive remove of dir-file structure */ 
remove(pt) 

Pe (Oc; 

{ 

int newfree; 

while(pt) /* down the dir list */ 


{ 

if (hiptr[pt]<0)remove((-hiptr[pt])); P53 Baie F7 
else: frerii(niotrtet))s {*®or af “a -Pile #7 
newfree=pt; /* now add this loptr.hiptr to free list */ 


pteloptr(ptly; /* pt onto: next ‘in. dast.*/ 
loptr(newfreel=freptr; /* link on the old free list */ 
freptr=newfree; /* and update the free pointer */ 


} 
} 
/* return the addr of the next free top blk of mem */ 
alloc() 
{ 
int. bik: 
blk=maxblk; 
while(blk) 
if (blkfree(--blk) )break; 
fixblk(blk);3 /* fix this block? *7 
return (b1kK<<9); /* and return the addr */ 
} 
/* fix a block of mem for use, given the block no */ 
fixblk(blk) 
int Bik 
{ 
int bits,words; 
words=blk>>4;3 
bits=blk-(words<<4); 


bits=-(1+(1<<bits)); /* complement for mask */ 
menmap[words ]=bits&memmap[ words]; 
} 


/* is the given block number free ?: returns 1 if true, else 0 */ 
blkfree(blk) 

Lit: DLS 

{ 

int: Bits .words; 

words=blk>>4;3 

bits=blk—(words<<4); 

oe ((1<<bits)&(memmap[words])): 
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/* free up the given block corresponding to the given addr */ 
dalloec(addr) 


The P&T-488 supports FIVE languages! 


int: addr: 
f 


int bits words bik: 

addr=32767&laddr>>1): /*.. take cara. to mask ¥/ 
blkzaddr>>8&8; /* and then cale the blk no. */ 
if (blk==:0) return: /*. trap..®/ 

words=blk>>ills 

bits=blk-(words<<4); 

memmap[words ]=memmap[words]}(1<<bits): 


/* return the location of a directory structure ¥/ 
dirfn(arg) 


int. ares 

{ 

if(arg==0)return glinks: 
if(arg==1)return loptr: 
if(arg==?)return hiptr: 


} 
inchar() 
{ 
char.«<s 
c=conin(); /*the machine code char input ¥*/ 
if(a>s""joutehar te) > /*if. not a control char’*/7 


if(c==13)return outchar(eol): /* carr-ret to eol */ 


(Continued on next page) 





The P&T-488 interface enables you to use your S-100 computer and any of 
these operating systems and languages to communicate with 488 equipment. 


The P&T-488 supports 5 operating 
systems, 2 of which are multiuser! 






1g aed 2 The P&T-488 includes useful 
Microsoft —~ utilities! 
CBasic 2° @ Interactive bus monitor 
Cromemco aids setting up test 
North Star Saat 


M@ Self test checks the 


Pascal: interface for proper 
Pascal/M™ operation 
Pascal/MT+™ 


The P&T-488 is 

complete! 

Interface, manual, 

programs on disk, 18” cable 

and connector mounting 
hardware are all included 

for $450 (domestic, FOB Goleta). 


‘Pascal — 


C: Quality Systems Assembler 


Assembler 


Sample Programs are included. 


oa) 
* CP/M and CBasic 2 are registered trademarks, and MP/M II ® p 
and Pascal/MT+ are trademarks of Digital Research, Inc. PICKLES & TROUT 

* CDOS and CROMIX are trademarks of Cromemco, Inc. BOX 1206. e GOLETA e CA 93116 

* Pascal/M is a trademark of Sorcim. (805) 685-4641 ROU é 
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Small-C Ope rati ng System (Listing continued, text begins on page 36) 


if(c==4)return 03 /¥*. control-d-ret: nalt.“*/ 
return ©} 
} 
outchar(c) 
Ghar a3 
{ 
if (c==e01)conout (123); /* insert a carriage return if ecl */ 
return (conout(c)); 
} 
#inelude shlibr.c 
/* this library is simply the routines cegchar-cempbede from DDJ H& ¥/ 


Listing Two 


/* initialize stack, i/o and hardware etc.. */ 


inits() 
{ 
Bre "45 
#fasm 
mvi a,Oc3h “fix up the system call location at zero 
sta. 0 
PL eS FSLeM 
shld 1 
lxi h,system-4 
pop »b *the local. variable ‘1' 
pop b sand the return addr 
sphl 
push b ‘the return addr 
push b aru SE 
#fendasm 
stdinz=stdout=02 (*. 3tdoin souk wise. console */7 
i=8: /* now book up all memory */ 
while(i)memmap[—--i ]=0; /* and free up user area */ 


L=naxplk- 
while(--i)dalloc(i<<9): /* leaves zero block not free */ 


eae Re 
while(++i<maxunits) grwli]=9;3 
loptr{OJ]=hiptr[0 J=glinks[0]=0; /* trap.errors*/ 
} 
/* get/put a group to disk af 
/* to/from a given dma address %/ 
/*® retiirns 1. if asks °O Pe errors: 7 
#define sectrk 26 /* 26 by 128 byte sectors per track */ 
/* conversions in the next section */ 
/* assume a 512 byte bufsiz !!! */ 


grupio(group,addr,io) 

int group,addr,io; 

{ 

int track,sector,memad; 

if (group==9)return 0; 

track=(group<G1)/13; 

sector=(rroup<<2)-track*26; /* 0 to 25 range not 1 to 26! #*#/ 
/#**** insert routines to read/write 4 sequential sectors #***#*/ 


} 
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The following routines are some programs to get the system going. 


The TIrret:..38)" save" ; 


/* Save a specified number of blocks of memory into a specified file */ 
/* The blocks of memory are assumed to start at 2560 (NA001) ¥/] 


#define bufsiz 512 
char buffibufsizy]; 
main(argc,argv) 
int argo, argvtl is 
{ 


int unit ngrp erp.adar: 


ifCarge!=3){puterr("\nwrong no. of args"):return:} 


if ((unit=creatf(argv[1],buff))==0 


{puterr("\nCannot open file"):return:} 
if ((ngrp=todec(argev[ 21) )==0) {puterr("\nHow many blocks?")sreturns } 


addr=?560; 
while (ngrp--) 
{ 


move(addr,buff): 


/* first location saved #*/ 


if(writef(unit)==0){puterr("\nvrite error"):return:} 


addrz=addr+bufsiz; 

} 
closf (unit); 
puterr("\nSuccessful save"); 


} 


(Continued on next page) 











Professionals 
Prefer Q/C. 


For only $95, Q/C is a professional, fully-supported C com- 
piler for CP/M. Q/C supports a large subset of C, and is upward 
compatible with the UNIX Version 7 C compiler from Bell Labs. 
The Q/C library includes over 50 input/output and other support 
functions, all written in C. 







When you buy Q/C, you get a working compiler that gener- 
ates assembly language. You also receive the complete source 
code for the Q/C compiler and the function library. The Q/C 
compiler is written in C, with a few functions hand-coded in 
assembler to enhance performance. Most compiler options 
can be customized to suit your taste by using the configuration 
program we supply. 









What really sets Q/C off from the competition is our 138-page 
User's Manual. The tone of the manual is informal and per- 
sonal. Jim Colvin (the author of Q/C) tells you how to use the 
compiler, and clearly describes each library function. There’s 
even a chapter that explains in detail the “internals” of Q/C. 







Q/C is a fully-supported professional product. We continue to 
develop and enhance Q/C, and provide updates at a nominal 
cost. Write or call for details of Q/C Version 2.0. 


tHECODE 
Santa Barbara, CA 93111 


WORKS (805) 683-1585 


CP/M is a trademark of Digital Research. 
UNIX is a trademark of Bell Laboratories. 












5266 Hollister 
Suite 224 
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CompuPro System owners: 


8087 SUPPORT 


for Microsoft 


FORT RAN-80! 


Impatient with 8-bit software? Don’t despair! Now you can put 
Intel’s amazing 8087 Numeric Data Processor to work on the 
same jobs, simply by re-linking with F87 LIB.REL, Avant-Code’s 
unique LINK-80 compatible runtime library for the 8087. 


ADVANTAGES OF FORTRAN-87 
Faster execution speed 
More accurate and reliable than 8080 routines in FORLIB.REL 
No software conversion required—just re-linking! 
Easiest and cheapest way to add 8087 power to your system! 
















Typical double precision (64-bit) benchmarks: 
Operation 
(5000 iterations) 






FORTRAN-80! FORTRAN-87! FORTH? 








multiplication 32 sec. 2.4 sec. 3.3 Sec, 
division 62 fps 3.4 
sine Or cosine 380 SR 6.4 
logarithm 390 2.6 N.A. 
square root 500 Ly Pee 






; Benchmarks obtained on a CompuPro/Hudson CP/M system 
; with 8085 @ 6 MHz and 8088/87 @5 MHz. 
FORTH with 8087 64-bit floating point on IBM 1g ORE PsA 
Dobb’s J., Nov. 1982, p. 46. 








Prices:* 

@ FORTRAN-87 (includes 8'’ CP/M disk and comprehensive 
Manual) $200 .00 

® FORTRAN-87 plus Hudson 8087 Support Board (with 5 MHz 
8087-3) $695.00 







Available from: 


1508A Oxford Street 
Berkeley CA 94709 
(415) 549-3257 
*Target system must include CompuPro CPU 8085/88 and System Support 1 or Disk 1 plusatleast 4K 
of extended addressing RAM. User installation of the Hudson & Associates 8087 Support Board will not 
void CompuPro warranty on CPU 8085/88. California residents add sales tax. 


FORTRAN-87 and F87LIB are trademarks of Avant-Code. 8087 Support Board isa trademark of Hudson and Associates. 
CPU 8085/88, System Support 1. and Disk 1 are trademarks, and CompuPro is a registered trademark, of W.J. Godbout 
Electronics. CP/M isa registered trademark of Digital Research 
























Fortran-80 and Link 80 are registered trademarks of Microsoft. 
' 
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Small-C Operating System (Listing continued, text begins on page 36) 


/* move a buffer in memory */ 
move(from,to) 

char from[{],tol]; 

{ 

tnt ee 

ks08 

while(k<bufsiz) 

to[kl=from[ k++]; 

} 
/* convert a string to an integer: return 0 on error */ 
/* routine straight from small-c compiler */ 
todec(str) : 

char str[]: 


{ 

iG. Ketate 

nekeo: 

while(c=str[k++]) 
{ 
c=c—'0'3 
if((c<0)}(e>9))return 0; 
n=10*n+c}3 
} 

return n3 

} 


finclude syslib.c 
End of program. 


This program 'rm' enables the removal of files. 
It is..set up so as to \be not able to remove directories. 
#finelude syslib.c 
main(arec,arfv) 
int Arges argvié st 
{while(--arge) rmfil(arev[arge],C);} 
End of. program. 


The next “program-4s.\stats-.. 
/* Gives statistics of number of free dotted pairs and groups left * / 
/* Tf any arguments are given it will give the size of these files */ 


finelude syslib.c 
main(argc,argv) 
int arge,argvl 1]; 
{ 
int pt,n,i,glinks{],loptr[],hiptr[]; 
glinks=dirfn(0); 
loptr=dirfn(1); 
hiptr=dirfn(2); 
He gt 
while(i<arge) /* for any given file names */ 
f 


u 


if ((nesendir(argvfli]))==0)continue; 
pt=loptr[3]; /* the working dir ptr */ 
while(—-n)pt=loptr[ptl; /* go to the files dotted pair */ 
pt=shiptript)::./* a pointer to the. file */ 
if (pt>o) 

{ 


a 
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n=size(pt,glinks); 

if(n<O)puts(" corrupted file structure in "): 
else foutdec(n);puts(" groups in"):} 
puts(argv[li++])s:puts("\n")>; 


} 
} 
peehiptrl Ti: 
n=size(pt,loptr); 


/* find the no. of free nodes */ 


if(n<O)puts(" free node list is corrupted\n"); 
else outdec(n);puts(" free nodes left\n"): 


otehi pera r 


n=size(pt,glinks); /* find the no of free grps left */ 
if(n<0)puts("\n free group list is corrupted\n"): 
else outdec(n);puts(" free groups left\n"): 


} 


size(pt,array) 

int. .pt,arrayly: 

{ 

tec. nt 

n=0* 

while(pt) 
{ 
ptzarrayl[pt]; 


if (+4n>32000) {n=-1: break: } 


} 


(Continued on next page) 





BDOS ERROR 
ON B:BAD SECTOR 





Before disk errors ruin your work again order BADLIM. 


# BADLIM assures the reliability of your CP/M 
computer. 

® You can use your disks 10 times longer without 
losing your data AND your time. 

® BADLIM checks thoroughly your disk marking all 
the blocks which have defective sectors. The 
operating system will know that those sectors 
should be skipped. 

# BADLIM is the only program that gives protection 
for soft and hard errors. 

® The first time BADLIM will list which files in your 
disk are On bad sectors, so you can take action to 
correct it. 

e But thereafter the bad areas in your disk will be 
automatically by-passed. 

e For CP/M 1.4 single density and for CP/M 2.xx of 
any format and density. It is a must for Winchester 
as the media cannot be replaced. 

BADLIM cost only $73. Whatever the reason you have 

to use a computer you need BADLIM. Contact your 

dealer or call us today: 

BLAT R&D Corp., 8016 188th. St SW, Edmonds 


WA 98020. Ph :(206) 771-1408 
DEALER aides A Sa BADLIM 
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Floating 
Point 


‘FPP’ (Floating point) software for use on 
any CP/M® computer system provides 
12 digit accuracy. 


12 digit significand stored as packed BCD 
BCD arithmetic assures accuracy 

guard digit on all operations 

exponent from -126 to +127 

written in assembly language — very fast. 
available in object or source form 

companion function package contains natural 
logs, common logs, sar root, exponentiation, 
sine, cosine, tangent and their inverse func- 
tions, etc. All functions computable to 12 digits 
accuracy using very latest algorithums; very 
fast. 


¢ compatible with our RAID debug system 


For more information on ‘FPP’ write or call: 


Southern Computer Systems, Inc. 
2304 12th Avenue North 
Birmingham, Alabama 35234 
(205) 933-1659 





CP/M® is a registered trade mark of Digital Research 
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ae 
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CS 


ea $ 1 


SINGLE SIDE 

SINGLE DENSITY 
W/HUB RING SOFT, 
100% certirien «V0 OR 16 
2 YEAR WARRANTEE SECTORS 


ams °°" 


SINGLE SIDE 
DOUBLE DENSITY 


W/HUB RING SOFT, 


10 or 16 
SECTORS 


a $98" 


DOUBLE SIDE 
DOUBLE DENSITY 
W/HUB RING SOFT, 


100% CERTIFIED 10 OR 16 
2 YEAR WARRANTEE SECTORS 


100% CERTIFIED 
2 YEAR WARRANTEE 


Minimum order 10 


= 


? 


wabash 
Axon) oe 


ma $499" 


SINGLE SIDE 
SINGLE DENSITY 


SOFT 
OR 32 
SECTORS 


ma $4" 


SINGLE SIDE 
DOUBLE DENSITY 


100% CERTIFIED 
2 YEAR WARRANTEE 


SOFT 


100% CERTIFIED OR 32 
2 YEAR WARRANTEE SECTORS 


al $0 


DOUBLE SIDE 
DOUBLE DENSITY 


SOFT 


100% CERTIFIED OR 32 
2 YEAR WARRANTEE SECTORS 


Packed 10 boxes of 10 diskettes with sleeves and labels 
Quantity discounts — 100 deduct 5%, 

1,000 deduct 7%, 5,000 deduct 10% 

Add $5.00 per case 514”, $7.00 per case 8” (case of 100) 
For shipping and handling Continential U.S.A, U.P.S. ground. 


SNAP-IT POWER CENTER .- 
Turn one outlet into six 7 
@ Shock-safe . 

@ Unbreakable 

@ 15 Amp Circuit Breaker snet 

@ Lighted On-Off Switch $19.95 


HARDHOLE DISK PROTECTORS 
Reinforcing rings 

of tough mylar 

protect disk hole 

edge from damage. 

Applicators 

Hardhole Rings (50) 


LIBRARY CASES 
8” Kas-sette/10 
5%" Mini Kas-sette/10... $2.49 


DISK DRIVE HEAD 
CLEANING KITS 


Prevent head 
crashes and 
ensure error-free 
operation 

5%” or 8” 


{All cassettes include box a 


Get 8 cassettes, C-10 
Sonic, and Cassette/8 
Library-Album, 

as illustrated, 

for only 


We also stock at FANTASTIC low prices 
MAXELL 3M _ DYSAN 
BASF OPUS 
Floppies, Tape, Data Cartridges, 
Data Cassettes, and Disk Packs 


e Written purchase orders accepted from government 
agencies and well rated firms for net 30 day billing. © International orders 
accepted with a 15.00 surcharge for handling, plus shipping charges. « C.0.0. 


— 


elovelove 


soon 


oe 


AN 8 


TA 


BEOe 


Ce 


VEGe 


ee-00 §#$=60-00 


veohoveloe 


requires a 10% deposit. © We accept Visa, Mastercharge, Money Orders, and 
Certified checks. © Checks require bank clearances. © All shipments F.0.B. San 
Diego. © Minimum shipping and handling 2.00, minimum order 10.00. © California 
residents add 6% sales tax. Prices and terms subject to change without notice. © 
All sales subject to availability, acceptance, and verification. @ All sales are final. « 
Satisfaction guaranteed or full refund. 


We also offer printer ribbons, printwheels, type elements, 
equipment covers, power consoles, paper supplies, storage and 
filing equipment, furniture and many other accessories for word 
and data processing systems. Write for our free catalog. 


Csi 


Orders Only 
800-854-1555 


Information 


619-268-3537 
Modem Hotline (Anytime) 


619-268-4488 


Exclusive Monthly Specials 


DATA PRODUCTS 
(FORMERLY ABM) 
ITT TELEX 4992217 


8868 CLAIREMONT MESA BLVD 
SAN DIEGO, CALIFORNIA 92123 
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Small-C Operating System 


(Listing continued, text begins on page 36) 


return 3 
} 
puts(str) 

char str{]: 

{ 

tot 

e-4 

while(putchar(str[k+4+])); 

} 

outdec (num) 

int num; 

{ 

int, 2S 

char ¢c3 

zZss05 

k= 100005 

if (num<0) {num=(-num) ;putchar('=');} 

while(k>=1) 
{ 
c=num/k+'0'$ 
ipiCers'0") 7 (estes) 

{zs=1sputchar(c);} 

num=numsk } 
Kek/19; 
} 

} 


/* library for small-c system programs */ 
fasm 

sys equ. 0 

fendasn 


/* sone definitions #/ 


tdefine rdfn 1 /* file read function */ 
define wrfn 2 /*® write funetion:*/ 
#define apfn 3 /*® and append */ 

fdefine bufsiz 512 

#define eo] 10 

puterr (str) 


char strf i: 

fsys(0,str,0;0):} 
getchar() 

tsys(1,.0,0,0):] 
putchar(c) 

char c$ 

isys(2,¢,0,0)23 
getc(unit) 

BL URES 

{sys C1) unit; 0,0)s3 
pute(c,unit) 

char c3 

ime units 

{sys(2,c,unit,0);} 
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readf (unit) 

mecuni ts 

{sys(3,unit,0,0):} 
writef(unit) 

IT7lG WaT 

{sys(4,unit,;0,0):} 
openf (name, buff,fn) 

char name(],buff[]; 

int fn: 

{sys(5,name,buff,fn):;} 
creatf (name, buff) 

char name[],buff[1]: 

{sys(6,name,buff,0); } 
closf (unit) 

Tht unis: 

{sys(7,unit,0,0):} 
readr(unit,n) 

sR es FS ee 6 Be 

isys(8,unit,n,0):} 
writer(unit,n) 

rt, UT. i: 

{sys(9,unit,n,0);} 
sendir (name) 

char name[}:; 

{sys(10,name,9,0):;} 
chdir (name) 

char name[]; 

{sys(11,name,0,0):} 
mkdir (name) 

char nane[]; 

{sys(1?,name,0,0):} 
rmfil(name,flg) 

char namef]: 

int. flzg: 

{sys(13,name,flg,0):} 
alloc() 

{sys(14,0,0,C):} 
dalloc(addr) 

inc agar’ 

{sys(15,addr,9,0):} 
dirfn(arg) 

int arg; 

1sys.016 ,arg,0,0):) 
gosys() 

{sys(17,0,0,0)3} 
fasm 
;fetch a single byte from the address in hl into hl 
The routines are as in DDJ WR but only the routines 
'cegchar' to 'empbede! 
fendasm 


End Listing 


ene 
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Distribution 


Services 


“Programming Language Translation” 
(Halstead Press) is “a major help to 
anyone interested in how Pascal works” 
(DDJ Sept., 1982). 

‘Programming Language Translation” 
contains an excellent Pascal pseudo- 
code compiler and interpreter. Originally 
written by Niklaus Wirth and translated 
to UCSD Pascal by R. E. Berry, the 
Pascal-S compiler is now fully-functional 
under Apple Pascal. We’ve already typed 
and checked all 2,000 lines for your con- 
venience. Experiment with an actual 
Pascal compiler. In addition, the “Service 
Update” newsletter describes how other 
Pascal-S users’ are using the compiler. 

The book alone is a $41.00 value. Book 
+ full source code on 514” Apple Pascal 
diskette is only $54.30. 

Pascal File Selector. Designed and 
written by Carl Helmer’s North American 
Technology, Inc., this Pascal unit allows 
interactive, menu-driven file selection 
and creation. A file is selected from any 
mounted diskette with as few as 5 key- 
strokes. Also included is a Utilities unit 
filled with useful, system-level functions 
and procedures. Full source code pro- 
vided on 5%” Apple diskette for only 
$30.00. 

With every order receive a free sub- 
scription to our newsletter “Service Up- 
date.”” We provide continual support for 
every product we distribute. 






































Name 
Address 
City State 









Zip Code 













MC (1 # 
VISA CJ Inter Bank # 
Signature 





Exp. Date 














L] PASCAL-S COMPILER....... $54.30 
LC) NATIFILE SELECTOR......... $30.00 
LJ INFORMATION 









SHIPPING INCLUDED 
(ALLOW 4-6 WEEKS FOR DELIVERY) 





ma O)e 310), abel, 


Peterborough NH 03458 
(LO) BZ: etc. be} 
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6809 Threaded Code 


Parametrization and Transfer of Control 





igh-level languages of the Forth type 
— now proliferating like the rabbits 
that inspired creation of Fibonacci 
numbers — are usually not compiled to 
machine-language ‘‘object” code. Their 
more-or-less humanly intelligible source 
code gets translated by a text-interpreter 
program into an intermediate code (“‘int- 
code’’), a compact sequence of memory 
addresses (that point to a block of ma- 
chine code) and parameters. This gets 
executed by an inner interpreter program 
that transfers control successively to the 
machine-code blocks, ‘‘threading”’ them. 
An example of a Z80 inner interpreter is 
given on p. 29 of the book by Loeliger 
(1981), who comments (pps. 36-7) on the 
timing inefficiency of threading. The over- 
head timing loss of executing a “‘primitive”’ 
command (defined by a machine-code 
block) is 76 cycles, while a “‘secondary”’ 
command (defined by an intcode se- 
quence, a de facto subroutine) costs 268 
extra cycles for the transfer of control. 
This must be why the fastest version of 
Forth in the benchmark- comparison 
study of Gilbreath (1981) ran six-fold 
slower than the truly-compiled PL-I/80 
or Whitesmith’s C (all on a Z80 system). 

The recent evolution of Forth-like 
HLLs, facilitated by newer CPUs with 
superlative addressing power, has altered 
the threading mechanism in order to 
minimize timing losses. In the Z8000 
Forth system of Odette (DDJ No. 71) 
each primitive machine-code block is ter- 
minated by two machine-code instruc- 
tions (4 bytes, 18 cycles) that cause a 
jump to the next primitive in the intcode 
sequence, so that a sequence of primitives 
“runs itself.’ Even if the next command 
is a secondary, transfer of control to its 
intcode sequence is expedited by prefacing 
that with a machine-code CALL COLON 
(4 bytes, 10 cycles, plus 35 cycles execu- 
tion time for the COLON subroutine). 
Since the terminal return to the main 
intcode sequence by the SEMI command 
costs 25 cycles, the total timing penalty is 
70 cycles. Relative to the Z80, this is a 
four-fold reduction in timing loss, at 
the cost of two more bytes added to each 
command. 








by H. T. Gordon 





H. T. Gordon, College of Natural Re- 
sources, University of California, Berke- 
ley, CA 94720. 


The purpose of this note is to de- 
monstrate that the Motorola 6809 can 
‘“‘thread’”’ intcode with even greater effi- 
ciency, since its instruction set is. rich in 
both direct and indirect indexed auto- 
increment codes. If the design makes use 
of its Y-index register as the equivalent 
of a CPU program counter, terminating 
each primitive machine-code block by 
JMP (,Y++) will cause a transfer of con- 
trol to the next primitive in the sequence 
at a cost of only two bytes and nine 
cycles. These powerful addressing modes 
also allow what I call “‘in-program para- 
metrization” of any intcode command. A 
simple example would be DROP (7), a 
command to “drop” n bytes from the 
data stack (using the U register as the 
stack pointer). The parentheses signal the 
text-interpreter to add the numeric n 
directly to the intcode sequence, following 
the execution address of DROP. The code 
for the parametrized DROP would be: 


DROP LDB.Y+ (load binary n from 
program into B register) 
LEAU B,U (reset U stack pointer 
by adding 7) 
JMP (,Y++) Gump to next 
intcode command) 


This generalized command executes in 20 
cycles for any value of n from | to LF. 
The “‘reading” of the parameter also ad- 
vances the Y counter to point to the next 
command in the sequence. A similar para- 
metrization in conventional Forth would 
be less efficient, being sourced as n DROP 
but intcoded as 5 (instead of 3) consecu- 
tive bytes: LIT address, n, DROP address. 
Execution of LIT would (a) pick up n 
from program, and (b) save it on the data 
stack. Execution of DROP would (c) re- 
trieve n from the data stack, and (d) use 
it to reset the stack pointer. Steps (b) and 
(c) are clearly a waste of time. There is no 
need for a parameter that pertains exclu- 
sively to one command to visit the stack 
at all! The stack exists to save data gener- 
ated by a command for use by a subse- 
quent command; mere copying from the 
program is not generation in this sense. 
In-program parametrization would 
likewise simplify the intcode and speed 
up execution of the DO...LOOP con- 
struct. I shall illustrate this for Loeliger’s 
CDO...CLOOP since this variant is more 
efficient for loop indices from 0 to 255. 
For generality, I also make the loop- 
increment (i) explicit, since this adds 
only one byte to the intcode and only 
three cycles to loop timing, and it avoids 


cluttering up the dictionary with distinct 
CLOOP and +CLOOP commands. The 
source code is CDO (n m i) ...CLOOP, 
where n and m are the initial and terminal 
indices of the loop. Here the 6809 S stack 
serves as the ‘“‘return’’ stack. 


CDO LDA .Y (pick up vn from pro- 
gram into A register) 

LEAY 3,Y (increment Y to ad- 
dress of first in-loop command) 

PSHS Y,A (save address, then 7, 
in S stack) 

JMP (,Y++) (jump to first 
in-loop command) 


This executes in 26 cycles. Note that n is 
stacked because its value will be incre- 
mented during looping. The constants, m 
and i, can easily ‘“‘read”’ by offsets using 
the stack-stored address. 


CLOOP LDxX 1,S (pick up stored address 
into X index-register) 

LDD -2,X (pick up m and i into 
registers A and B) 

ADDB ,S (add i to the stack- 
stored n) 

STB ,S (save itn, as new value 
of n) 

CMPA ,S (compare m to new n) 

BLS EXIT (if m is less or same, 
exit from loop) 

LEAY 2,X (move X plus 2 into 
Y) 

JMP (,X) (and jump back into 
loop) 

LEAS 3,S (reset S stack pointer 
before exit) 

JMP (,Y++) (and jump to post- 
loop command) 


EXIT 


This more complex transfer of control 
costs 40 cycles for each run of the loop. 
Comparison with other systems would be 
tedious since timing information is never 
given, but I would be surprised if an equi- 
valent Forth +CLOOP was as fast. 
Conventional Forth allows use of 
different entry points into a complex 
machine-code routine, since all this re- 
quires is creation of a dictionary ‘“‘name”’ 
that specifies the entry address. It’s not 
clear whether multiple entry points into a 
complex intcode routine are also possible. 
In the design used by Odette, only one 
entry can exist into an intcode routine. 
Intcode-defined commands are, to the 
programmer, just “names” indistinguish- 
able from those of primitives. If a 6809 
system adopts the Odette model, the ad- 
dress of each secondary points to a 3-byte 
machine-code ‘‘leader’’ that is followed 


i 
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by the intcode sequence. This is a JSR 
COLON (8 cycles) that pushes the address 
of the first intcode command in the se- 
quence onto the S stack, not as a return 
address but for use by the COLON rou- 
tine: 


COLON LDxX |S (load new intcode 
address from stack into X 
register) 

STY ,S (save old intcode address 
in same location for return) 
LEAY 2,X (move X plus 2 into 

‘@ 
JMP (,X) (and start running 
new intcode) 


This takes 24 cycles, so the total entry 
timing loss is 32 cycles. Note that if the 
first two instructions were PULS X and 
PSHS Y the unneeded resettings of the 
stack pointer would add three cycles. 
However, resetting of the stack pointer is 
needed in coding the SEMI command, 
which terminates the secondary sequence 
and transfers control back to the original 
sequence: 


SEMI PULS Y (restore old intcode 
address from stack into Y) 
JMP (,Y++) (and return to 


running that intcode) 


Since this takes 16 cycles, the total over- 
head of this form of high-level subroutine 
is 48 cycles — nearly four times longer 
than the machine-code JSR/RTS. It seems 
that the tradeoff for the conciseness of 
intcode is a several-fold slower execution 
time! 

Entry to any execution address with- 
in a complex intcode sequence becomes 
possible if one creates a JSUB primitive, 
that must be followed by the ‘‘name” of 
the desired entry address (added to the 
sequence by the text-interpreter), 


LDX ,Y++ (load ‘‘name”’ address 
into X, set Y to return address) 

PSHS Y (save return address in S 
stack) 

LEAY 2,X (move X plus 2 into 
Y) 

JMP (,X) (and start running 
““name”’ intcode routine) 


JSUB 


Execution time is 28 cycles, only four cy- 
cles less than the single-entry- point logic, 
and the “‘call”’ adds two bytes to the ori- 
ginal intcode program. The SEMI return 
works as before. Intcode-defined com- 
mands must be ‘‘marked”’ so the text in- 
terpreter will recognize that they must be 
preceded by JSUB. Beyond the potential 
advantage of using segments of a complex 
intcode sequence, there is forced recogni- 
tion by the programmer that use (and 
especially nesting) of JSUB degrades 
timing. 

One of the intriguing possibilities of 
in-program parametrization is in-line 
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insertion of a machine-code sequence 
within an intcode sequence. The shift 
would be enabled by an MCODE primi- 
tive, defined by a simple 2-byte, 3-cycle 
JMP ,Y, that will transfer control to the 
first machine-code byte. The machine- 
code sequence must be terminated by a 
JSR SEMI, which will transfer control to 
the following intcode sequence, at a 
24-cycle cost, for a total cost of 5 bytes 
and 27 cycles. This would allow use of 
special-purpose operations without cre- 
ating new dictionary entries for them, but 
of course makes the program system- 
dependent! 

The extraordinary flexibility and 
user-extensibility of Forth-like HLLs is a 
mixed blessing, since it encourages cus- 
tomization and the proliferation of dia- 
lects almost to the level of one-man lan- 
guages, the classic Tower of Babel effect. 
However, I am convinced that major 
conceptual changes (such as parametriza- 
tion) are inevitable and will sooner or 
later be quietly adopted. They will pro- 
vide at least some common core structure 
and enhance the competitiveness of this 
linguistic type. Standardization, to what- 
ever extent possible, should be deferred 
until the wealth of ideas developed in 
existing dialects can be pooled into an 
optimized core. That is how a science 


develops, free of orthodoxy and sectari- 
anism, always ameliorable by common 
agreement, never proprietary. It should 
not be necessary to create scores of fully- 
developed rival languages such as STOIC, 
URTH, SNAP, or the new RPL of Stryker 
(1982). That is why my controversial pro- 
posals for PARFOR (DDJ No. 52) were 
purely hypothetical guidelines for possi- 
ble improvement of the linguistic type, 
and why I have here presented only a few 
of the command words I have written for 
my 6809 system. If they’re not optimal, 
they ought to be replaced by whatever is. 


DB, 
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A Common-Sense Guide to 


Faster, Smaller BASIC 





Editor’s note: The advice in this article 
may be highly interpreter-dependent. As 
most DDJ readers know, the inadequacies 
of a particular interpreter are neither uni- 
versal nor necessarily long-lived. In the 
interest of readability and maintainability, 
many people deliberately sprinkle their 
code liberally with the very “inefficien- 
cies’’ pointed out here, and later apply a 
mechanical compressor (several are com- 
mercially available, with varying degrees 
of thoroughness). Thus, two versions of 
each program can be kept — one for exe- 
cution and one for documentation. 


cessor speed and decreasing cost of 

memory, it is perhaps anachronistic to 
speak of optimizing speed and memory 
capabilities of your microcomputer. But 
assume for a minute that your home 
system isn’t a Cray-1 with a couple of 
megabytes of RAM and a flock of 14” 
Winchesters. I remember just twenty 
years ago when the best military com- 


; n .“ese days of increasing central pro- 





by Robert Irving 





Robert Irving, 8637 Bothwell Road, 
Northridge, California 91324. 


puter at sea (on the Polaris program) had 
a main memory cycle time of 80 milli- 
seconds — yes, milliseconds, not micro- 
seconds. Running real-time navigation for 
even a submarine was touch and go. So 
we put eight read/write heads on one 
track of the drum(!), and got a 10 milli- 
second (Wow!) response. 


Well, you’re not that bad off. Let’s 
assume your home system is a Z-80 and 
youve got 32K of RAM using a 12K 
BASIC. You’ve already got a system that 
is fast compared to the Polaris system, 
but you'd still like to get the most out of 
it. Here are some of the ways that you 
can do that. Obviously, you shouldn’t 
expect that every one of these methods 
will improve speed and minimize memory 
usage. Some methods may do both, but 
most will do one or the other. In addition, 
some of the methods I will discuss will 
improve the accuracy of your results — 
when they can be applied. 


First, let us consider speed enhancing 
techniques. Each individual application 
may appear trivial, but overall the effect 
is significant. Try some of the examples 
and you'll agree. 


(1) Never put a REM_ statement 
in the middle of a set of FOR-NEXT 
statements. 


Not this: 


140 FOR J=1 TO 10 

150 REM ** THIS IS A LOOP 
160 A=AtJ 

170° NEXT J 


But this: 
140 REM ** THIS IS A LOOP 
150 FOR J=1 TO 10 
160 A=AtJ 
170 NEXT J 


(In the first example, the REM statement 
would be read ten times; in the latter, 
only once. The more times the loop is 
iterated, the greater the time savings.) 


(2) Avoid requiring the program to 
process a REM statement. 
Not this: 
270 GOSUB 7000 


7000 REM ** SUBROUTINE ARCTAN 
7010 REM ** ANGLE IN RADIANS 
7020... 


But this: 
270 GOSUB 7000 


6998 REM **SUBROUTINE ARCTAN 
6999 REM ** ANGLE IN RADIANS 
7000... 


(In the first example, two REM state- 
ments are read each time the subroutine 
is called. In the second example, no REM 
statements are ever read by the program; 
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they show only in the listing.) 


Not this: 
500 REM ** USER INPUT 
510 INPUT “NEXT CHOICE”’,U $ 
520 IF U$=“SEND” THEN END 


550 GOTO 500 
But this: 
499 REM ** USER INPUT 


500 INPUT “NEXT CHOICE”’,U$ 
510 IF U$=“TEND” THEN END 


540 GOTO 500 
(In the first example, the REM statement 
is read each time the program is returned 
to the user input by Line 550. In the 
second example, the REM statement is 


ready only once in the normal course of 
the program.) 


(3) Use special symbols in lieu of 
blank lines to call attention to REM state- 
ments. 


Not this: 
160 NEXT J 
170 REM 
180 REM FUNCTION TO BE 
PLOTTED 
190 REM 
200 FND(X)=4*X*X+P1 
But this: 
160 NEXT J 
170 REM ** FUNCTION TO BE 
PLOTTED 
180 FND(X)=4*X*X+P1 
(In the first example, three REM state- 


ments must be read by the program. In 
the second example, only one.) 


(4) Keep REM statements as short as 
practicable 


Not this: 
740 REM ** THIS IS A SUBROUTINE 
TO EXTRACT THE INVERSE 
TANGENT FUNCTION 


But this: 
740 REM ** SUBROUTINE ARCTAN 


(In the first example, the program must 
read a much more lengthy statement, 
even though it is ignored in processing.) 


(S) Minimize display length, amount 
of input, and input processing for inter- 
active programs. 


Not this: 


210 INPUT “HOW MANY OBSERVA- 
TIONS DO YOU WANT TO 
ENTER”, E2 


But this: 


210 INPUT “NUMBER OF 
SAMPLES”, E2 


Not this: 


1430 INPUT “NEW GAME”, U$ 

1440 IF LEFT$(U$,1)=“Y” 
THEN 230 

1450 IF LEFT$(U$,1)=“N” 
THEN END 

1460 GOTO 1430 


But this: 


1430 INPUT “NEW GAME (Y/N)”,U$ 
1440 IF U$=“Y” THEN 230 

1450 IF U$=“N” THEN END 

1460 GOTO 1430 


(The less time spent printing unneeded 
displays and typing unneeded letters, the 
faster the operation goes.) 


(6) Assign a symbolic name for fre- 
quently used constants. 


Not this: 


760 A1=3.141592654*R1*RI1 
770 A2=3.141592654*R2*R2 


But this: 


760 PI=3.141592654 
770 Al1=PI*R1*R1 
780 A2=PI*R2*R2 


(The interpreter reads a numerical con- 
stant character by character each time it 
is encountered. A constant stored as a 
symbolic is read character by character 
only once, and as a stored value sub- 
sequently.) 


(7) Use simple variables (A, B, C, etc.) 
or nonsubscripted variables (A7, B4, C9, 
etc.) in lieu of subscripted variables [A(1), 
B(2,3), C(4), D(8,1), etc.] whenever pos- 
sible. (Subscripted or array variables 
generally require more manipulations to 
store and retrieve, hence take longer.) 


(8) Avoid the use of transcendental 
functions (trig, logs, exponentiation) 
whenever possible. For integral powers, 
use repeated multiplication. 


Not this: 

540 X=YA2 
But this: 

540 X=Y*Y 


(Trigonometric functions can be’ most 
time consuming. Raising a number to a 
power requires both LOG and EXP func- 
tions, lengthy operations, hence should 
be avoided for integer powers.) 


Now let us turn our attention to 
techniques which reduce memory require- 
ments. It is not surprising that some of 
the speed enhancing techniques also re- 
duce memory. Specifically, (3) through 





FREE SOFTWARE for the 
KAYPRO 2 or VECTOR3 & 4 


Lots of games, CP/M} utilities and other programs are in 
public domain. 

Now you can order copies from 90 disks of well-known user 
group on 5 inch disks. 

Copy fee of $10 per disk includes postage. 

Either Kaypro 2 (46 tpi ssdd) format or Vector 3 & 4 (100 tpi 
dsdd) format. 

Other 5 inch formats ready soon. (Sorry, will not copy to 
fruits or stars.) 


The 90 disk library includes these favorites: 

#21 startrek and other games,-requires MBASIC 

#23 STOIC stack language, similiar to FORTH 

#28 simple ALGOL compiler with games 

#37 arithmetic CAI, games, requires CBASIC 

#41 HAM radio programs, requires MBASIC 

#50 PASCAL compiler written in PASCAL 

#55 or #57 original or extended adventure game 

#60 a 6502 simulator runs on Z80 

#66 HELP for novices on BASIC, CPM, PASCAL, etc. 

#79 or #84 SMODEM37 OR MODEM765, requires MAC 
(No representations implied on any public domain software.) 


Send $10 (check or MO) for each disk, specify format. 
List of 90 disks for $2, or free with order of 3 disks. 


Sheepshead Software™ 
P.O. Box 486 
Boonville, CA 95415 


No COD. No credit cards. No refunds 
+ CP/M trademark of Digital Research 
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SMALL-C 


for the 
IBM Personal Computer 


35 


@ Includes Compiler Source in Small-C 
@ Includes Runtime Library Source 
@ Requires IBM-PC ASM or MASM 


order from 
Caprock Systems, Inc. 
P.O. Box 13814 
Arlington, Texas 76013 
(817) 261-4493 


Mastercard and Visa accepted 
Texas residents please add 5% sales tax 


Circle no. 59 on reader service card. 





OPERATING SYSTEM 
for Apple II” with: 
Editor 
Assembler 


Debugger 
Filer/DBMS 
Relocatable Dictionaries 


FLOAT FORTH 


LANGUAGE 
includes: 


| Floating Point Vocabulary Hi-Res Graphics | 
Multiple-Precision Integers Matrix Operations 
Telecommunications Support 
plus 


CALCULATOR MODE 
A full-function RPN programmable 
calculator with: 
Complex Numbers Least-Squares Solution 
Hi-Res Data Plotter Statistics 
Linear Equation Solver Integration and 
Differentiation 
Algebraic Expression Evaluator Option 


PRICE S50 


COASTSIDE ELECTRONICS 
P.O. Box 947 e Montara, CA 94037 
(415) 728-5845 
Apple || is a trademark of Apple Computer Co. 
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LOSING TRACK OF CHANGES? 
‘““NOW! COMPARE files on CPM-80!”’ 


«Compare Program Versions * Compare Documents 

¢ Fast, NO File Restrictions ¢ Extensive User Options: Ignore 

¢ Side by Side or Vertical Comments, Blank lines and more 
Listings of Differences ¢ Create Documents with Change Bars 

¢ Output to File or Printer ¢ Sensible Command Line defaults 


COMPARE is a superb software tool with excellent features for the 
serious professional programmer with no time to waste. Document 











CP/M Software 


WASH 


Easy to use directory maintenance utility 
that replaces a dozen older programs. 
Menu driven for fast directory display, view 
or print, copy rename, delete. Also multiple 
copy and delete. Much easier to use than | 
the CP/M utilities: occ. ci. cn’ $49.95 






U 
ERA *.BAS instead of ERA *.BAK can ruin 
your whole day. UNERA to the rescue — it 
recovers all ERAsed files for CP/M 2.2 
Floppy and Hard Disk Systems with 
Standard directories ............ $75.00 
FORMS-3 
ideal fur filing out all kinds of forms. Fea- 
tures field editing for numeric, dates, etc., 
justification, multipages, required entry. 
Can also use a separate data file. $40.00 
SUPERFILE 

Solves your filing problems. Menu driven 
information retrieval system for storing and 
quickly finding information. Features AND, 
OR and NOT in search command. Sort, 
merge and split utilities included. Build data 
base with any CP/M editor. Computer 
Magazine Database 900+ entries included. 
with Demo Data Base & Manual $165 
Manual only(applies to purchase)$50 
Available 8” Single Density, North Star Single and Double | 
Density, most 5%" soft sectored disks. 

ADD $1.50 SHIPPING AND HANDLING 


CALIF. RESIDENTS ADD TAX 












mode with Change Bars designed especially with Writers in mind. 
Call or WEE TOF IATORMANON ay. sss. ee oe PL Only $95 


SOLUTION TECHNOLOGY, INC. 
Suite 218 * 1499 Palmetto Park Rd. « Boca Raton, FL 33432 + (305) 368-6228 
*CPM-80 is a trademark of Digital Research Inc. *Check or COD, Florida residents add 5% sales tax. 
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Slliam CAssociates 


24000 Bessemer Street 
Woodland Hills, CA 91367 


eS (213) 348-4278 = 
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CodeSmith'"-86 
The debugger with the most bite for your IBM PC! 
With unique multi-window/ multi-level split screen features: 


e Hundreds of simultaneous breakpoints supported. 
Groups of breakpoints may be tagged and toggled on/off 
by tag number. 

e Individual breakpoints set by typing cntl-B on desired 
line of disassembly. 

e Cntl-X starts up execution from underlined instruction. 


e Full line-edit keyboard utilization—insert, delete, next- 
word, previous-word, etc. 
Full-screen disassemblies may be scrolled through with 
Pg up, Pg Dn, and arrow keys 
Blocks of disassembled code may be dumped to a disk 
file—blocks may be large, small, and/or discontinuous 
Single-step through full-screen disassemblies by hitting 
‘“+4'' key, Current instruction is underlined on display. 


Saves user's graphic display when breakpoint hit, restores user's display when user’s program started again. User's 
frozen display may be toggled to/from for observation when breakpoint hit. (Standard monochrome display subject to 
certain reasonable restrictions when using this feature. ) 

F6 key will center disassembly display around line on e Alt-F10 key combination will interrupt program-under- 
which cursor is placed. test and bring up CodeSmith'™ disassembly where break 
User may type comments on disassembled code lines occurred 

which will be retained throughout session e Simple commands resemble Microsoft DEBUG 

Complete control to load your .EXE file almost anywhere commands, or use single-keystroke commands to speed 
in memory your work 

Dump display(s) may be brought up on separate e Coded entirely in high-speed machine language 
windows (split-screens) or window-levels for continuous e Requires about 40K—multiple windows claim additional 
monitoring of selected memory areas. (Version 2.0 will space on a dynamic basis 

allow user program to be running simultaneously while e Version 1.5 available April 1983—monochrome display 
dump display is updating.) version only (introductory price $145, updates $20) 


Version 2.0 (with color graphics compatibility) available July 1983 will include auto-assembly of user-entered patches, 
automatic label-generation option, symbolic debugging of certain PASCAL, C, and Assembler programs, 8087 disassembly 
and debug support, traceback of last several hundred instructions executed, watchpoint definitions (conditional halting of 
user program when data stored to certain locations, etc.) 

e Version 3.0 available Fall 1983 will include full-screen editor option for updating your source file while still in CodeSmith™. 
MS-DOS Interface will be supported so that MS-DOS commands (compilations, etc.) may be entered from CodeSmith'™. 


CodeSmith'™ has been designed with you in mind to substantially increase your ability to get your programs working—fast 


VISUAL AGE 
642 N. Larchmont Blvd., Los Angeles, CA 90004 (213) 464-8141 


CodeSmith is a registered trademark of International Arrangements, Inc. 
Microsoft and MS are registered trademarks of Microsoft Corp. 
IBM is a registered trademark of International Business Machines Corp. 
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(7) above reduce memory requirements. 
There is a version of (3) which is particu- 
larly wasteful of memory; one involving 
the use of multiple REM statements to 
outline the program title, author’s name, 
copyright statement, etc., with rows and 
columns of asterisks or other symbols. 
Fach of the symbols and spaces is indivi- 
dually stored in memory — and that takes 
a lot of memory for little real benefit. 

Most of the prior examples are obvi- 
ous as to the reason for the saving, but a 
couple require explanation. In (6), added 
memory is needed during operation to 
store the value of the constant symbol — 
but program memory is saved since multi- 
ple symbols and not multiple values are 
listed in program storage. In (7), the 
Saving in using nonsubscripted variables 
lies in elimination of the storage for the 
array definition and its addresses. These 
overhead functions are not needed for 
individual variables. 


There are other memory-saving tech- 
niques: 


(9) Do not overdimension arrays. 
Many systems have a default value (e.g., 
10 or 10,10) for arrays for which you 
have not written a DIM statement. It may 
Save program storage to not dimension a 
3 by 4 array, but when you accept the 
default 10 by 10, you waste an equivalent 
storage for a 7 by 6 array. 


(10) For systems allowing multiple 
statements per line, use this capability 
to combine short statements. The colon 
or other separator symbol takes less stor- 
age than a new line number. Caution: 
Remember that most systems skip all 
statements to the right of an IF-THEN in 
a single line, unless the IF condition is 
TRUE. 


(11) If your system allows, use the 
INPUT with PRINT capability. 


Not this: 


230 PRINT “LENGTH OF SIDE” 
240 INPUT L1 


But this: 
230 INPUT “LENTH OF SIDE”’,L1 


(The latter has limits, however. You can- 
not insert a variable inside the INPUT 
with PRINT format.) 


(12) If your system allows variable 
string lengths, set STRING= to the lowest 
value that will encompass the strings you 
plan to use. This is especially important 
with arrays of strings since every cell in 
the array will reserve as many bytes as 
STRING= designates. A large array using 
the default value for STRING= (18 bytes 
in some systems) can eat up a lot of 
memory. 


(13) Avoid isolated statements — 
ones which will never be executed be- 
cause the program bypasses them. Every 
programmer has, at one time or another, 
introduced unused material into a pro- 
gram. A subroutine is inserted, but never 
called. A GOTO bypasses one or more 
lines of the program. These isolated state- 
ments waste memory and should be de- 
leted. They most frequently result from 
inadequate review after a program has 
been “‘patched”’ or rewritten. 


(14) Lastly, memory can be saved 
by eliminating spaces in the program. 
Caution: Be judicious in using this tech- 
nique, even if you only have a small 
amount of memory. A statement like: 


100FORI=ATOM:LETJORK=TRUE: 
NEXTI 


could possibly blow a mental fuse! 


So far there has been no discussion 
of accuracy. Only one of the techniques 
mentioned so far has an influence on 
accuracy. In (8) avoidance of transcen- 
dentals was discussed to enhance speed. 
In typical BASIC systems, the TRIG, 
LOG and EXP functions are typically 
one to three places less accurate than the 
arithmetic functions (+, -, *, and /). Thus 
the use of repeated multiplications in lieu 
of integer powers is not only faster but 
more accurate. 


As for fractional powers and the 
TAN/ARCTAN functions, in most cases 
one uses them in BASIC and accepts the 
speed and accuracy penalties. If one must 
have the ultimate in accuracy for a tran- 
scendental, then evaluation of a truncated 
series expansion is probably the best 
route. However, a large penalty in speed 
is incurred, since the series methods are 
usually very slow. 


From the foregoing discussion, we 
can conclude that there are some sure 
ways to approach maximum speed, mini- 
mum memory use, and maximum accu- 
racy. Not all of these methods can be 
applied all the time. Some methods opti- 
mize speed and memory, others optimize 
Speed and accuracy, but none optimize 
all three. 


DB; 
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Micro 
Technology Report 


Programmer 
Productivity 
Multiplied 


Langhorne, PA — Quic-N-Easi 
Products Inc. announced availabil- 
ity of a complete Applications 
Development System called Quic- 
N-Easi PRO. The package is 
designed to help professional 
programmers make a lot more 
money by multiplying productivity. 
The Quic-N-Easi PRO System 
is based on the widely acclaimed 
Quic-N-Easi package... BYTE, 
INFOWORLD and other national 
reviews marvel at how fast 
absolutely professional results 
can be achieved with little effort. 
Quic-N-Easi PRO handles the 
entire application, including: 
_) Formatted Data Entry 
_) Data Base Management 
_} Information Processing 
_} Report Generation 


The product is difficult to 
compare with simplistic code 
generators or half solutions like 
so-called data base managers. 

Don’t waste any more time with 
tedious coding in BASIC. Quic-N- 
Easi PRO $395 at your dealer. 


QWUIC-N-2aSI [LR {0) 


Requirements: Z80, CP/M, 64K 
Bytes, 2 Drives, Addressable Cursor. 


[_] Attached is my check for 
$399.50 ($395 + $4.50 Shipping) 
wit | Visa Exp. Date... 
# 
Signature 

My system is 

with (Microcomputer Model) 


[]5% Disks []Hard [] Soft 
(J 8” Disks (Single Sided, Single Density) 

















































Name Title 









Company 


Address 







Mail to 


(formerly Standard MicroSystems Inc.) 
136 Granite Hill Court 
Langhorne, PA 19047 


Phone order today 
(215) 968-5966 


Z80 is a trademark of Zilog, Inc. 
CP/M is a registered trademark of Digital Research, Inc. 
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A TEXT EDITOR IIN €C 











e available for small-C and BDS C 
(specify when ordering) 


e complete SOURCE CODE provided 
e handles huge files 
e block move and copy commands 


e works with any video terminal with 
cursor addressing 


e supplied on single density, IBM 
format, 8 inch disks for CP/M 
systems with at least 48K memory 


e portable to other machines 
and operating systems 


Price: $50. 


to order, or for more information, 
contact: 


Edward K. Ream 
1850 Summit Ave. 
Madison, WI 53705 
(608)231-2952 
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AT LAST! 

A PROFESSIONAL JOURNAL FOR ENGINEERS 
SCIENTISTS MATHEMATICIANS & STATISTICIANS USING 
MICROCOMPUTERS. 

PLUG INTO... 

ACCESS! 
The Journal of Microcomputer Applications 
or 


* numerical analysis 
* math modeling 
* statistical analysis 


* computerized design 
* process simulation 
* report generation 


The articles in ACCESS are written by workin 
engineers and scientists who share their knowledge o 
how to make productive use of microcomputers with 
you. Your subscription to ACCESS will make your 
microcomputer more useful in all areas where 
engineers and scientists use microcomputers. And you'll 
even find ways to use your computer you _ hadn't 
thought of. The articles in ACCESS are written with 
you in mind and are aimed at helping you turn your 
Lr a oor into the most productive tool possible. 
Sign up W be a charter subscriber. Join the other 
engineers and scientists who make ACCESS their 
source of information on microcomputer applications. 
Charter rates are 6 issues for $16. (Canada & Mexico 
$20. Other $32) Fill out the coupon below TODAY. 
Send check, money order, purchase order, or use your 
VISA or MASTER CARD. 


ign me $16 () enclosed () Bill me () Bill 
ompany "Clarke ve () MC 0, 0 
Exp () Send sampfe issue heres $3 
Name & address 

City State and ZP 


Mail to ACCESS PO Box 12847 Research Triangle Park, 
NC 27709 Published by LEDS Publishing Co., Inc. 
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No downloading — No trial PROM burning. 
This port-addressed RAM ON YOUR S-100 
host is the ROM of your target system 


WORD/BYTE 


WIDE ROM SIMULATOR 


e Simulates 16K bytes of memory (8K bytes for 
2708 and 2758) 

e Simulates 2708, 2758, 2516, 2716, 2532, 2732, 
2564 and 2764 PROMS 

e The simulated memory may be either byte or 
16-bit word organized 

e No S-100 memory is needed to hold ROM data 

e Driver program verifies simulated PROM contents 

e Price: $495 each — 


¢ Inner Access Corporation 2 


P.O. BOX 888* BELMONT, CA 94002 (415) 591-8295 
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A Fundamental Mistake 
in Compiler Design 








MSDOS non-macro assembler requires 

53,000 bytes of object code and the 
competing CP/M-86 assembler requires 
27,000 bytes. I can only echo Dave 
Cortesi’s comment, “...this kind of 
bloat is inexcusable.”’ 

Something is radically wrong. The 
authors of these assemblers are presumably 
competent programmers. The past records 
of their firms certainly indicate this. I am 
sure most of them are younger and smarter 
than I. The problem has to lie elsewhere. 

In pondering this problem, I soon 
recognized that assemblers weren’t the 
only culprits. In fact there is even more 
bloat in the typical compilers used today. 
There is also a fundamental reason for 
this bloating all down the line in typical 
software and the reason, I believe, is 
traceable to a fundamental mistake that 
compiler designers have been making for 
thirty years. 

My conclusions are not based on a 
formal scientific proof. They are sim ply 
inferred from common sense observations. 
With that caveat I will first discuss bloating 
in assemblers and then turn to the real 
culprit, the conventional compiler. 


Assemblers 


The state of the art for the object 
code size of a good structured program- 
ming machine code assembler with all the 
IF... THEN, IF. , ELSE. ..THEN, BEGIN 
...UNTIL constructs one needs to auto- 
matically assemble branch instructions is 
on the order of 1500 to 2000 bytes. The 
size will vary depending on the instruc- 
tion set of the processor but that is 
roughly what one should expect. 

DDJ published an excellent example 
of a 6502 assembler by W. F. Ragsdale 
in the September 1981 issue. Ragsdale’s 
assembler requires only 1300 bytes of 
object code. I have both a 6502 and an 
8080 assembler, neither quite as elegant 
as Ragsdale’s but each is about the same 
size and power as his. 

Do not be fooled by the small size. 
These assemblers are every bit as power- 
ful as the best bloated assemblers and 
much more convenient to use simply be- 
cause it is practical to make them resident 
and part of your language. You can assem- 
ble and test a machine code program on 


Bis stunned to read in DDJ that the 





by Edgar H. Fey, Jr. 


Edgar H. Fey, Mobile Computers, 18 W. 
Calendar, La Grange, Illinois 60525. 





the spot, interactively, without leaving 
you language. I do this routinely. This 
would not be practical if my assembler 
took 53Kb or even 27Kb. My machine 
simply isn’t that big. 

The argument that since memory is 
so cheap, the size of a program really 
doesn’t matter is persuasive but false. You 
pay a lot more than the price of additional 
memory for poor programming. You pay 
in time, convenience of use, i.e. frustra- 
tion, and in the ability to understand, 
change and modify the program. There is 
a world of difference in making a simple 
change to a 27Kb program as compared 
to a 2Kb program. Further, a little bloat 
in an application program is of a lot less 
concern than bloating in the assembler, 
compiler and other basic tools of compu- 
ting. 

The state-of-the-art assemblers I have 
mentioned were written in the Forth lan- 
guage but I am sure equally good assem- 
blers can be written in Pascal or any other 
good language, if someone has not already 
done so. 


Compilers 


How big should a compiler be? I 
counted the space taken by the compiler 
functions in my Fig-Forth system. It uses 
only 350 bytes! 

This is not one, but two orders of 
magnitude smaller than conventional 
compilers. Whether one likes the language 
or not is immaterial; the point is that if 
this is all it takes to perform the compiling 
functions of a powerful language (and 
Forth is a very powerful language), then 
what is wrong with conventional compil- 
ers? Where are they making their mistake? 


If the compiler of your favorite lan- 
guage were reduced in size to 500 or 
1000 bytes, you could make it a resident 
compiler which you could then use inter- 
actively. Wouldn’t that be nice? You 
would then have room for the object 
code produced by the compiler and 
wouldn’t need an operating system to 
continually swap things around. 


By it being small, the compiler would 
be easy for you, as the user, to understand 
and change. You could make it extensi- 
ble. Just think, if you then saw some fea- 
ture you liked in some other language, 
you could extend your compiler to in- 
clude that feature. And you could make 
the extension and test it on the spot, in- 
teractively, until the language was perfect 
for you. You wouldn’t have to wait for 
the author of the compiler to make a set 


of changes that he thinks will be best for 
you. You make the changes that are best 
for you. Let him make the changes that 
are best for him. I call a small compiler 
instant computer freedom. 

An extensible compiler has long been 
a goal of compiler writers. Most books 
that I have read on the subject begin with 
a syntax definition of languages. A partic- 
ular syntax defining a language is then 
selected and most of the book explains 
how to implement the compiler based on 
the chosen syntax. This is really tough 
reading so I turn to the end of the book 
where I can usually find a statement to 
the effect: “...so that is how you write 
a compiler. Now it would have been nice 
if we could have made it extensible but 
that’s simply not practical. All previous 
attempts in that direction have resulted 
in failure... .” 

Folks, the problem of designing an 
extensible compiler does not lie in your 
techniques. They are super. The problem 
lies in Chapter 1: 


If you start out with a 
complicated syntax for a language, 
you will end up with a 
large and complicated compiler. 


It will then be too difficult for the user to 
extend. : 

One reason Charles Moore was able 
to write an extensible compiler for Forth 
is that he started out with a very simple 
syntax. It is so simple that it can be writ- 
ten in a few lines: 


(1) A valid character is any member of 
the ASCII character set except the 
Space and carriage return. 


(2) A word is a string of ASCII charac- 
ters delimited by an ASCII blank. 


(3) A line is a sequence of words termi- 
nated by either the ASCII return, the 
established line length, or a 0. 

(4) If a word in a line is 
(a) a previously defined word, it is 

executed. 

(b) not a previously defined word, 
then it must be either a number 
in the current base or an error. 
(1) If it is a number, it is placed 

on the stack. 
(2) If it is not a number, it is an 
error. 


That’s it. The language is expanded 
from this basic syntax. The compiler 
starts out very small and extensible and is 
kept extensible. Adding the syntax of the 
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usual structured programming constructs 
= TF.) ELSE. .. THEN; BEGIN. UNDA 
DO loops, etc. — results in the final 350 
byte Fig-Forth compiler which the user is 
free to expand at will. 

One of the interesting products of 
Moore’s approach is that by making the 
compiler small and extensible right from 
the very beginning, it appears that the 
language can be extended indefinitely. 
There does not appear to be an upper 
bound to the complexity of the language. 
If a user creates a syntax that appears to 
box him in, he should always be able to 
leave a path for continued expansion in 
some Other direction. 


There may be other simple syntaxes 
that will lead to small, powerful, efficient, 
interactive, extensible compilers, but the 
syntax used by Moore is known to work. 
It also may turn out that all such simple 
syntaxes yielding extensible compilers re- 
sult in languages which have characteris- 
tics quite similar to Forth. Personally I 
think that would be just great, but I am 
sure there will be some initial objections 
simply because that is not the way things 
have been done for the last thirty years. 





For example, the languages may con- 
sist of almost all verbs. Although you can 
put them in if you wish, there are no ex- 
pository statements in Forth. Every word 
produces an action. The traditionalist 
who has been taught otherwise may Say, 
“That’s terrible — how can you express 
yourself in a gutteral language that doesn’t 
have elegant expository statements?”’ 


This is a loaded question that really 
has three answers: 


(1) Of course you realize that you can 
get the computing job done. That’s 
what verbs are all about. 


Do not confuse program documenta- 
tion with computing. They are two 
separate functions. The user should 
not be forced to document when he 
feels it to be unnecessary and all he 
wants to do is compute. Of course it 
should be made convenient for the 
user to document to his heart’s con- 
tent if that is what he wishes to do. 


(2) 


The real answer to the gutteral lan- 
guage charge is that with an extensi- 
ble language, the user has complete 


(3) 


2 2" 


, schematics, pponerd list 
and programming examples 
as well as provocative in- 


| sights on potential applica- 


tions. $219, assembled and 
tested. 


~ more insertions rath 


freedom of expression simply be- 
cause he, not the compiler writer, 
controls the syntax of the language. 
The user is in a much better position 
to decide what syntax he needs or 
would like in a particular application 
to express his ideas properly. He can 
try out a particular syntax and test it 
immediately. If it is unsatisfactory, 
he can then change it. The guiding 
principle is that since the bloat in 
compilers is related to the syntax, it 
is better to let the user control the 
syntax. The bloat will then tend to 
be at the top in the application and 
not at the bottom where it hurts. 


All this talk about changing the com- 
piler and changing the syntax must seem 
quite vague and mysterious to those read- 
ers who have not had the opportunity to 
actually do this sort of thing. It isn’t. Let 
me try to explain with a practical example. 


Say I have a file system and I wish to 
define individual record components in a 
file and give them unique names. I also 
want to fetch and store the record com- 
ponents without having to remember 
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their data type or their offset location in 
a record. Let’s call the fetch and store 
operators V@ and V!. If the name we as- 
sign to a record component is xxxx, then 
we would like to be able to use the fol- 
lowing syntax for fetching and storing 
data for xxxx in the current record: 


xxxx V@ to fetch the component 
xxxx V!_ to store the component 


If the data type of xxxx is numerical, 
we will use the convention that V@ puts 
the fetched number on the parameter 
stack. If its data type is string, V@ will 
place the fetched string on the string 
stack. V! will be similarly designed. What 
we are trying to do is design universal 
fetch and store operators that receive in- 
formation on the component’s data type 
and location directly from the name of 
the component. 

Once a protocol is set up as to how 
the type and offset information is to be 
transferred, the design of V@ and V! is 
straightforward. For example, xxxx could 
leave two numbers on the parameter 
Stack to be picked up and used by the 
operators. 

The compiler change comes in when 
we try to define xxxx. We could use the 
ordinary compiler to define xxxx so that 
when it is executed it leaves the proper 
numbers on the stack. But then each time 
we encountered a new component, we 
would have to tailor its definition to its 


data type and its offset. Sooner or later 
we would foul up and make a mistake. 
The compiler should take care of that 
sort of thing. So we change the compiler. 

For this situation I added several 
new defining words to the compiler: 
INTEGER”, BYTE”, DINTEGER”, and 
STRING’’, They are used to define record 
components in the current file, allocate 
space in the file records, and, when the 
newly defined name is invoked, pass the 
proper information to the fetch or store 
operator. It was not very difficult to do. 
It was all done in one session and the 
system was tested interactively without 
leaving the language. 

Now when I execute 


STRING” PARTNAME 


I define a record component named 
PARTNAME in the current file. If, for 
example, I place the string GIZMO ONE 
on the string stack and then execute 


PARTNAME V! 


the string GIZMO ONE will be placed on 
the disk in the current record as the value 
of PARTNAME. Similarly then executing 


PARTNAME V@ 


will fetch the string GIZMO ONE back to 
the string stack. 

We could, of course, get fancier and 
have the new compilers also link the new 
record components to components in 
other files, but as you have seen, the 


ability to decide on a syntax change and 
then implement that syntax by modifying 
the compiler has obvious practical uses. It 
is a very creative form of endeavor that 
pays compound interest by making all 
subsequent computing easier. 
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The FORTH-79 Standard language has been extended with 
over 500 new words that provide full-screen and line-oriented 
editors, array and string handling, enhanced disk and terminal 
I/O, and an excellent assembler. Detailed reference manuals 
supply complete documentation for Programming and system 
operation, inan easy -to-understand, conversational style using 
numerous examples, 


Optional features include an excellent floating-point package 
with all transcendental functions (logs, tangents, etc.), the 
MetaFORTH cross-compiler, printer plotting and CP/M file 
transfer utilities, astronomical and amateur radio applica- 
tions, etc. 





Compare these features with any other FORTH onthe market: 


® Speed and efficiency 

® Variety of options 

@ Ease of use 

@ Quality of documentation 


You'll find UNIFORTH is superior. 


Prices start at $35. Call or write for our free brochure, 


Unified Software Systems 
P.O. Box 2644, New Carrollton, MD 20784, (301) 552-1295 
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Comments on 








‘‘Fifth Generation Computers’? 





Editor’s note: The good Doctor enjoys seeing dialogue among 
the readers. Recently we received the following piece in re- 
sponse to the guest essay “Fifth Generation Computers”’ by 
Richard Grigonis which was published in the December 1982 
issue of DDJ. It provides some interesting counterpoints 
which seem likely to interest readers, and perhaps to gener- 
ate more comment on the issues discussed. 


IBM 370 on a Motorola 68000 —a plan which IBM is 

seriously considering — should spell doom for at least the 
superminicomputer manufacturers. But Richard Grigonis, in 
his essay ‘Fifth Generation Computers” (DDJ No. 74), is not 
just talking about “microsuperminis’” or even “micromain- 
frames.’’ He asks us to believe that a supercomputer, 64-bit 
processor running at 110 megahertz (which is essentially a 
Cray 2S) can be put on a single chip. 


; admit that the cost-performance ratio of, say, putting an 





by Michael J. Doherty 





Michael J. Doherty, 334 South Maple Avenue, Glen Rock, 
New Jersey 07452. 


It will take a while for VLSI technology to catch up to 
mainframes in terms of performance and fault tolerance — even 
mainframes have fault tolerance problems. Redundant circuitry 
must always be built to take care of such things as processors, 
main memory, and recovery from faults in the I/O system. 
Grigonis’ secondary 32-bit I/O processor, probably used for 
maintaining the graphics, would itself require error detecting 
circuitry. 


The 64-bit main microprocessor would have to be so 
small (in order to achieve 110 megahertz) that Heisenberg’s 
Uncertainty Principle would come into play, and the posi- 
tions of the electrons in the signal pathways of the processor 
would become “blurred,” leading to strange field effect in 
neighboring signal pathways. What all this means in that 90% 
of his processor would have to consist of error- correcting 
circuitry. 


Granted, slower 64-bit processors will probably be in use 
as early as 1986. I am surprised, however, at the preciseness of 
his prediction that processors of 110 megahertz will have been 
developed by the year 1992. It would have been more realistic 
to suggest a barrier of 100 megahertz instead. 


The gigantic 4-megabyte EEPROMS Grigonis postulates 
may in fact be developed by 1992, but probably for main- 
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Apple Machine Language by Don Inman and Kurt Inman 


A machine language programming book with a new approach. You make 
the transition from BASIC to direct machine language in just a few, quick 
stages. Sketches of video displays show predicted results at every step. 
You'll be able to enter, examine, and execute machine language programs 
directly on the Apple System Monitor. 

1980 224pp Reston $14.95/P $19.95/C 


Pascal Programming for the Apple by 7.G. Lewis 


An easy-to-understand introduction to Pascal for microcomputers. You'll 
learn the features unique to UCSD Pascal on the Apple II. You’ll review all 
the fundamentals of the Pascal System and get scores of ready-to-run pro- 
grams, including practical applications in the areas of finance, graphics, 
file structures and sound reproduction. 

1980 224pp Reston $14.95/P $18.95/C 


Starting FORTH by Leo Brodie 


Gives you a clear and comprehensive introduction to FORTH, the revolu- 
tionary approach to computer programming. FORTH increases your control 
Over your computer and environment. This book has everything from the 
basics to advanced topics such as combining words, vectored execution 
and FORTH techniques for fixed-point arithmetic through scaling. 

1981 384pp Prentice-Hall $15.95/P 


Telematic Society. A Challenge for Tomorrow by James Martin 


An updated version of Martin’s classic, The Wired Society. This book 
provides a stimulating, mind 

revolution being created by the marriage of telecommunications and the 
computer. Martin vividly demonstrates how the communication media will 
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bank, shop, educate our children, and govern ourselves. 

1981 256pp Prentice-Hall $12.95/C 


The C Programming Language by Brian W. Kernighan and Dennis. M. 
Ritchie 
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also learn the UNIX operating system interface. 
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Using the UNIX System by Richard Gauthier 
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UNIX system. You get an excellent handbook that shows you how to 
handle everything from specific commands to files to overall system 
design for new applications. It’s a valuable addition to everyone's profes- 
sional library. 

1981 297pp Reston $18.95/C 
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Logic, and Architectural Design, 1982 by Edwin E. Klingman 


Covers in depth the concepts and details needed to utilize array logic 
devices or bit slice microprogramming devices for the architectural design 
of a special purpose digital system. You get all the building blocks of 
microprocessor system design. The application is illustrated in three 
examples: a two-dimensional filtering problem, a floating-decimal-point 
computation system, and a facsimile transmission system. 

1982 368pp Prentice-Hall $27.50/C 


16-Bit Microprocessor Architecture by Terry Dolhoff 


Professional coverage of the technology that produced the new 16-bit 
chips. You get practical guidelines for mapping out an efficient, smooth- 
running system. Focuses on the 9900 architecture with overview of current 
16-bit machines including the 8086, the Z8000, Nova compactible micros, 
PACE, and the Motorola 68000. It’s the final word on choosing the best 
installation. 

1979 496pp Reston $24.95/C 
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frames, not micros. Even today the most advanced micro tech- 
nology only provides the main memory chips used in main- 
frames. The microprocessor arm of this technology has been 
incorporated in mainframes only in the form of controllers 
and intelligent terminals. Microprocessor technology cannot 
be applied to mainframe processors because of logic circuit 
‘randomness’? problems and a general lack of performance, 
at least until recently. More gates than those projected for 
future microprocessors would be required. 

Also, mainframe processor gates have switching times 
of about one nanosecond, as opposed to the three- to five- 
nanosecond switching times of the best microprocessors such 
as the eight-megahertz Z80-H and the 16-megahertz version 
of the Motorola 68000. The Grigonis 64/110 processor would 
probably have a switching time of about half a nanosecond — 
which, coincidentally, pushes silicon to its theoretical physical 
limits. I don’t think a single chip made of silicon can handle 
the gate densities required for the operation of a processor 
with the Grigonis specifications. 

Those 10,000- to 15,000-megabyte optical disk drives 
(10 inches in diameter) also give me pause. A conventional 
read-only videodisk can easily yield about 2,250 megabytes of 
storage (333,333 bits x 54,000 tracks), so Grigonis is talking 
about a five- to seven-fold density increase, with the ability to 
write to the disk, While I wouldn’t say that’s impossible, given 
the unknown technological developments that will occur over 
the next ten years, I think about 3,500 megabytes on a 14-inch 
disk sounds more realistic, at least as far as small systems are 
concerned. 


Grigonis also mentions artificial intelligence programs that 
could require 32 megabytes of memory with a virtual memory 
system. Since the internal memory working set size of any 
virtual memory system is usually half the size of the program, 
he evidently envisions AI programs of 60 or 70 megabytes in 
length. These would be several times the size of the standard 
business applications packages that his AI program would 
presumably replace. 

The problem of software quality assurance also rears its 
ugly head. In an actor-based, artificial-intelligence driven, 
customized language generator as described by Grigonis, how 
does one deal with program validation if the language has 
never before existed and the programmer is unfamiliar with it, 
yet is fully understood by the ‘“machine”’ (meaning the actor- 
based AI program) that developed it? Can we be sure that the 
AI program really “‘understands” its own creation? Normally, 
locating errors in code that is written in a well-known lan- 
guage such as COBOL can take up to half of one’s time — what 
about the unenviable position of having to locate errors in a 
program written in a language totally foreign to everyone? 

Besides, it is my strong feeling that even with artificial 
intelligence, 64-bit microprocessors, and many megabytes of 
memory, the supermicros of 1992 will all serve merely as intel- 
ligent terminals to even more powerful mainframes, especially 
in the videotex environment. 

Still, after years of looking at DDJ’s countless pages of 
software listings in weird languages, it was stimulating to read 
“Fifth Generation Computers,’’ and I would be curious to see 
Grigonis’ speculations on the workstation environments that 
will have to be developed to contain the operator as well as 
the advanced hardware he describes. 
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ComputerTown, a computer literacy project sponsored by People’s Computer Company and later funded by the 
National Science Foundation, began operations in 1979. The project’s ongoing goal is to design, publish and dis- 
seminate materials for the development of community -based computer literacy projects around the world. 





You too can help! Your tax-deductible donations of new and used computer hardware and software will enable 
us to bring “hands-on” experience to people everywhere. These items can mean the difference between a person 
just hearing about computer technology and actually being able to sit down and use it. A ComputerTown can 
be set up in a public library, museum, school, business or a number of other places. What’s needed, along with 
the information, resources and experience we provide, is just a few machines and some software to get started. 


Already there are more than eighty ComputerTowns in the U.S., Canada, England and other countries. Your 
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For more information about ComputerTown, and for details on how to make contributions, contact: 


Fritzi Lareau, c/o ComputerTown 
1263 El Camino Real, P.O. Box E, Menlo Park, CA 94025 
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CP/M EXCHANGE 


by Gene Head 


Last month this column carried the 
source listing for a sorted and sized direc- 
tory listing program, DIR.ASM. One of 
the more obscure sections of that code 
dealt with the Disk Parameter Block and 
the computation of space available on a 
partially filled disk. 

Frankly, I don’t understand as much 
as I would like to about disk tracks, sec- 
tors, records and the like. Bob Blum has 
contributed two articles that he says will 
clear up some of the foggy parts about 
basic disk I/O. I’m very encouraged by 
Bob’s contribution to this month’s and 
next month’s column for three reasons. 

First, Bob is a perfect example of 
readers sharing their experience with the 
rest of us; Dr. Dobb’s specializes in this. 
Second, Bob wrote the article and sent it 
to me via modem; our computers are 
helping us communicate effectively! Fi- 
nally, I hope other readers will see how 
helpful their input is and send in their 
ideas. 

Perhaps the mysteries surrounding 
the CBIOS to BDOS interface have dis- 
couraged you from upgrading to a higher 
performance disk system or from making 
a few of those changes that could make 
your system more livable. In this, the first 
of a two-part series, we will review the 
major aspects of the most popular disk 
drives in use today and the data alloca- 
tion methods used. This will set the stage 
for next month’s article where the disk 
interface portion of the CBIOS will be 
covered in detail. At the conclusion, | 
hope you will feel more comfortable with 
CBIOS’s inner workings and consider it a 
friend rather than a foe. 


3740 Format 


Several years ago, IBM introduced 
the 3740 data entry system which used 
8” floppy disks for external storage. As is 
characteristic of the computer industry in 
general when IBM introduces a new prod- 
uct, it is soon copied and many times be- 
comes a new standard. This is the case 
with the 3740 disk format. It was the 
first format to be implemented under 
CP/M and continues to be the standard 
today. For that reason it will be used here 
as the basis for example until the discus- 
sion turns to the newer, more sophisti- 
cated disk drives. 

The 3740 configuration is imple- 
mented using a single-sided, single-density, 
soft-sectored disk drive. Single-sided 
means that only one side of the media is 
used for recording by a single read/write 
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(R/W) head. Referring to Figure 1 
(below), each track of recording area is 
divided into data areas called sectors. Sep- 
aration of consecutive sectors is accom- 
plished through control information re- 
corded along with the data portion of the 
sector. This type of sectoring is referred 
to as soft-sectored format. To reach any 
one of the sectors, all we need to know is 
the track and sector numbers. From there 
the disk controller and CBIOS logic direct 
the disk drive to step to the appropriate 
track and await the arrival of the desired 
sector. Sector skewing is employed to in- 
crease the speed at which sectors can be 
sequentially accessed. This technique off- 
sets consecutive sectors from each other 
by a count of 6. Figure 4 (page 81) lists 
the standard skew table used in the 3740 
standard. The skew table is used to map 
logical sectors to their physical location 
on disk. For example, your program 
wants to read logical sector 2. The BDOS 
first calls a translation routine which uses 
the logical sector number 2 as an index 
into the skew table. In position 2 is 7, 
offset from 1 by 6, which is used for the 
actual read operation. The rate at which 
consecutive sectors can be sequentially 
accessed is greatly improved by skewing 
because most of the time it is possible to 
process the data just accessed and prepare 
for the next operation before the next se- 
quential sector passes under the R/W 
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Group 
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head. This makes it possible to access up 
to two sectors per disk revolution. With- 
out sector skewing, the best possible data 
rate would be one sector per revolution 
of the disk. 


CP/M 3740 


In CP/M 3740 single-density format 
there are 26 128-byte sectors per track 
and a total of 77 tracks per disk. Sectors 
are numbered from 1 to 26 and tracks 
from 0 to 76. The first two tracks are re- 
served for system use. The boot loader 
occupies track 0 sector 1 while the re- 
maining sectors on track 0 and 1 are used 
to hold the operating system. All remain- 
ing tracks are available for directory and 
data area usage. 


One of CP/M’s major advantages is 
the ability to dynamically allocate disk 
space during program execution. To 
accomplish this, allocation groups are 
used. Each group contains eight consecu- 
tive sectors or 1024 bytes and is the basic 
unit of disk space which can be allocated 
at any one time. Control of the allocation 
and deallocation of groups during execu- 
tion of a program requires that the cur- 
rent status of each group be available at 
all times. Memory-resident tables are used 
for this purpose. You have probably no- 
ticed that when logging in a new drive or 
warm starting, quite some time is spent in 
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Ever make a wlaiake in the DDT? 

POWER! loads disk data to ANY 
memory address, not just 100, and 
writes to the disk from any memory 
address. POWER! Single-Steps | 
through memory, moves memory, 
compares memory sectors, tests 
memory, allows you to change 
memory and saves to disk using 
Decimal numbers. 


NOW POWER! permits you to 
securely lock any file with your 
password to protect sensitive infor- 
mation from prying eyes. 
PASSWORD program included 
FREE with every POWER! order. 


Dislike BDOS errors? 
POWER! ends BDOS errors, and 
gives you a way out. 













































Trouble identifying files? 

POWER! marks original files and 
their copies for you. POWER! also 
compares files and finds identical 
copies regardless of name. 
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disk activity. During this time CP/M is 
reading the entire disk directory and con- 
structing a bit map in RAM. The bit map 
is appropriately named because each bit 
in the map represents the status, in-use 
or available, of one allocation group. The 
purpose of allocation groups is to reduce 
the memory requirements of the bit map 
and to prevent excessive file fragmenta- 
tion. For example, if each allocation 
group were one sector in length, the bit 
map would contain 1944 bits or slightly 
over 243 bytes. Since the maximum Ca- 
pacity of the 3740 system is 243 alloca- 
tion groups, only 31 bytes are needed to 
contain the bit map for each active drive. 
This is a large memory saving, not to men- 
tion the reduction in head movement ne- 
cessary to process 1024 bytes of data. To 
find an allocation group in which to write, 
CP/M searches the bit map sequentially 
from the beginning until a zero bit is 
found which indicates availability. During 
the search, each bit that is passed over is 
counted. The resulting count is used to 
identify the allocation group and is used 
in subsequent operations to determine 
the track and sector numbers. When re- 
turning allocation groups to the system, 
the directory entries of the appropriate 
file are read and the allocation group 
numbers are extracted from the FCB and 
are used as an index into the bit map to 
appropriately adjust it. 


Double -Sided Drives 


As microcomputers found more com- 
mon use in commercial data processing, 
more capacity on the same size media 
created the need and subsequent intro- 
duction of the double-sided drive. In this 
configuration there is one stationary and 
one movable R/W head as in the single- 
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Each tool kit costs $350.00 Send today for 
FREE eye listing these and other 
software products available from: 








HSC INC. 
BOX 86 
HERKIMER, NEW YORK 


(315) 866 - 2311 
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sided drive. This type of drive still gives 
engineers fits because of unacceptable 
wear patterns, media warping when both 
heads were engaged and gravity problems 
since the lower head must be held in 
place against gravity. This also presented 
some new problems for the driver soft- 
ware and the disk controller because it 
was now necessary to command the drive 
to read or write from a particular head in 
addition to track and sector. One method 
of adapting to this new drive was to map 
one logical single-sided disk to each side 
of the two-sided disk. This achieves the 
desired result of twice the storage capac- 
ity but has one inherent disadvantage — 
excessive head movement which slows 
data transfer, sometimes to an unaccepta- 
ble limit. The common solution was to 
logically view the drive as having twice as 
many tracks as it really had. Referring to 
Figure 2, it is common on a 40-track, 
double-sided drive to assign all tracks on 
size zero even numbers between 0 and 78 
while side one’s tracks are assigned odd 
numbers between 1 and 79. Since the disk 
controller will only recognize tracks 0 
through 39, the CBIOS has to translate 
logical tracks to physical tracks and set 
the appropriate head selection line. This 
calculation is not too difficult.. Referring 
to Figure 3, divide the logical track num- 
ber by two. The quotient is the physical 
track number and the remainder is used 
to select the appropriate head. From this 
we can see that both tracks 0 and 1 are 
under the R/W heads at the same time 
and can be visualized as a cylinder. This 
technique provides faster data transfer 
because no mechanical movement is ne- 
cessary to process two complete tracks of 
data. 


Certain manufacturers weren’t satis- 


CBASIC* USERS 


Now it is possible to recover a 
“ BAS” from an “.INT” file. Send me 
aSSSD 8” CP/M * diskwitha “INT” 
file on it: | will return it with the 
reconstructed “.BAS” file added. 
(Multiple “INT” files on a disk are 
allowed, not to exceed 48K per 
disk.) 


Cost is $40. per “.INT” file. Dis- 
count of 10% for 5 to 9, 15% for 10 
or more, “INT” files shipped as a 
single order. 
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PETER INGERMAN 
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WILLINGBORO, N.J. 08046 
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fied with only double the capacity, so 
double-density recording methods were 
developed which provided approximately 
twice as much data content in each of the 
sectors and twice the transfer rate. Today, 
even more data is being packed onto each 
disk by increasing the number of tracks 
and using group encoding. It’s fairly com- 
mon to find 640K bytes of data being 
stored onto one 54” floppy disk. With 
motor speed control, it is possible to 
store 512K bytes on a single-sided disk 
system as on the Victor 9000. The reward 
for greatest capacity on a 5%” floppy is 
held by a British firm, Rair, which offers 
over 800K on one disk by double-sided, 
quad-density formatting. 


Along came hard disks and still fur- 
ther increased storage capacity. It is not 
uncommon to have 200 tracks and six or 
eight recording surfaces provided by three 
or four platters on hard disks. Data trans- 
fer rates are also considerably faster be- 
cause rotation speeds of approximately 
3000 to 3600 RPM are common. With 
each movement of the R/W heads, more 
data are available because the cylinder has 
grown to multiple surfaces. 


There is much more to cover in this 
track and sector discussion. If you have 
further questions, send me a SASE and I 
will return to you a list of reference ma- 
terials which will explain these subjects in 
greater detail. Next month we will get 
straight to the heart of the interface ta- 
bles and their relationship to the system. 


DD, 


(Figures 2, 3, and 4 at right) 
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FIGURE 2. 
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FIGURE 3. 
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FIGURE 4. 


Format 


8’ Single-Sided/Single- Density 

8’’ Double- Sided /Single- Density 

8”’ Single-Sided/ Double- Density 

8°’? Double- Sided / Double- Density 

5%” Single-Sided /Single- Density 

5%” Single-Sided / Double- Density 

5%’? Double-Sided/ Single- Density 

5%’ Double-Sided/ Double- Density 

5%” Double-Sided/ Quad- Density 

5%’ Single-Sided / Double- Density / Variable Speed 
5%’? Double-Sided/ Double- Density / Variable Speed 


— 
— © OO WON NA NA Rh WN 


Table 1. 
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Code 


8SS/SD 
8DS/SD 
8SS/DD 
8DS/DD 
5SS/SD 
5SS/DD 

5 DS/SD 

5 DS/DD 

5 DS/QD 

5 SS/DD/V 
5DS/DD/V 





4th, A New Software Development Tool 


4th is a very powerful, compact, 
interactive, software package which 
when installed on a 48K CP/M System 
provides the user a total software 
development environment. 4th provides 
the hobbyist and the professional a 
unique software development capability 
with the following features: 


The 4th command line interpreter: 

Direct execution calculator mode 

Online module assembly/compilation 

Interactive module execution & debug 

Nested CP/M named source file 
loading 

CCP/utility functions (DIR, PIP, etc.) 


The 4th language: 

Fast compilation & execution 

Compact, modular structured code & 
data 

Top-down design with bottom-up 
coding 

Extensible: create new code & data 
types 

16 & 32-bit integers, variable strings 

IEEE single precision floating point 

sin, Cos, Tan, Arc, Log, Exp functions 


The 4th assembler: 

Fully structured with 8080 mnemonics 
plus Z80 extensions 

Assembler code allowed within a high- 
-level 4th module 

Easy interfacing to special hardware 


The 4th line editor: 

Direct, fast source editing from 4th 

CP/M named source modules (no 
screens) 


The 4th tracer/debugger: 

Run-time stack display & execution 
trace 

Decompiles/disassembles all 4th code 

Interactive “patching” of compiled code 


The 4th cross-compiler: 
Generates compact CP/M COM files 
Allows generation of ROMable code 


Package: 190 pg manual & 8” SS/SD 
disk 

Price: $89.95 + $5.00 handling 
Alabama residents add 6% sales 
tax 

Terms: COD, money order, check 
License required 
No royalties for derivative software 


United Controls Corp., PO Box 4620 
Huntsville, AL 35802 (205) 837-6144 
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The Eternal Calendar 


Calendar algorithms are an unfailing 
source of fun and agony for programmers. 
Early in this column’s history, we proposed 
some calendar code. We also worked on 
some problems in BASIC coding whose 
solutions revolved around using the arith- 
metic value of relational expressions. 
Brian Moore of Oakland, CA, was going 
through his back issues of DDJ and was in- 
spired by those old problems to propose a 
calendar algorithm for BASIC which uses 
the arithmetic value of relations. 

Moore’s algorithm takes a day-of- 
the-year number as its input, and a boolean 
value that is “‘true” if this is a leap year. 
In one big expression, it biases or offsets 
the day number to the value it would 
have if all months were 31 days long. The 
month number and the day-of-the-month 
number are obtained from that value by 
dividing by 31. Our version of Moore’s 
code (Listing 1, below) is for the more 
common BASICs, in which “‘true”’ is rep- 
resented as negative one and “‘false’’ as 
zero. Some BASICs represent “‘true’’ as 
positive one; if that is true of yours, 
change all minus signs in line 1040 to 
plus, and vice versa. 


The Productive Erase 


Aubrey Hutchison, of Pompano 
Beach, FL, sends us an idea that is (we 
think) eccentrically brilliant. First, some 
background. CP/M 2.2 supports the no- 
tion of a user number, a number in 0..15 
that is an implicit part of all filenames on 
a disk. There is a current user number 
(set with the USER command) which 
qualifies all searches of the directory, so 
that the only files you can see are those 


that were created under the current user 
number. It’s a nice idea — it allows the 
directory of a large disk to be partitioned 
into as many as 16 sub-directories — but 
it wasn’t carried out thoroughly enough. 
Later versions of CP/M (CP/M 3, Concur- 
rent CP/M, MP/M 2, and MP/M 86) make 
the user number more useful. 

One problem with the user number 
(as implemented in CP/M 2.2) is that 
there is no simple way to move files from 
one user number to another. You can do 
it with PIP; its [G] option will cause it to 
search for the source file(s) under a dif- 
ferent user number than the current one. 
But since the only commands you can use 
are those stored under the current number, 
you have to have a copy of PIP under 
every user number you’ll use. And if you 
want a file to appear under two user num- 
bers, you have to have two copies of it, 
one stored under each number. 

Well, Hutchison was pondering these 
matters, and thinking about the fact that 
the user number is stored in the first byte 
of directory entry as a value from 00h to 
OFh, when he had a satori of sorts. He 
flashed on the fact that, when the BDOS 
erases a file, it simply stores ESh in the 
first byte of the file’s directory entry. So 
changing the user number of a file and 
erasing it are identical operations, namely, 
storing something in the first byte of the 
directory entry. In order to change the 
user code of a file, all that is needed is to 
persuade the BDOS to use the user num- 
ber instead of ESh for erasure, and then 
to erase the file. 

Hutchison went looking for the 
magic constant of ES5h in the BDOS, and 
he found it. Just 655h bytes below the 


Listing 1. 


REM GIVEN: 
REM 
REM RETURN 


LEAP = 


DAY IN 1..366, A DAY OF THE YEAR, AND 
TRUE (-1) OR FALSE (0), 


warm-start entry point of your BIOS 
(whose address is in location OOOlh) 
there is an instruction, ““MVI M,ESh.”’ 
If that is changed to, say, “MVI M,03h”’ 
and the BDOS is called to erase a file, the 
file won’t be erased. It’ll be given user 
number 3 instead. Of course, the BDOS is 
refreshed from disk whenever a warm start 
is done, so the zap has to be made on the 
fly. You can’t expect to do it with DDT, 
because the BDOS will be refreshed when 
the DDT ends. 


But you could write a GO-USER 
command that takes a user number and a 
file-spec, patches the BDOS on the fly, 
erases the filespec, and ends. Before the 
command ends, it should un-patch the 
BDOS. That’s because there are a few 
times when the BDOS is not reloaded 
from disk on a warm start — like when- 
ever XSUB is running. 


A Pascal Standard At Last! 


Members of the IEEE Computer 
Society got gladsome news in the mail 
just before Christmas, in the form of an 
ad for the book American National Stan- 
dard Pascal. According to the ad, “IEEE 
Standard Pascal has completed its IEEE 
approval and is undergoing final ANSI 
approval at this time... (it) provides an 
unambiguous and machine independent 
definition of the language.’ The cloth- 
bound book is the official standards doc- 
ument; it costs $17.95 to non-members, 
$16.95 to members of the Computer 
Society, and should be shipped in Janu- 
ary. Order from IEEE Computer Society, 
10662 Los Vaqueros Circle, Los Alamitos, 
CA 90720. 


We know at least one software outfit 
that has made frequent public promises 
to bring its compiler into conformance 
with the standard language ‘“‘just as soon 
as there is an approved, not a draft, stan- 
dard.’ Don’t hold your breath; they'll 


MONTH IN 1..12, DATE IN 1..31 
DAY: 3 
- (DAY > 
- (DAY > 
> 
> 


probably claim they really meant an inter- 
national standard, not just an American 
one. 


DI = 
(59-LEAP)) * (3+LEAP) 
( 120-LEAP) ) 
(181-LEAP) ) 
(273-LEAP) ) 
(334-LEAP) ) 
INT(DI/31) +1 

(DI MOD 31)+1 


Dempsey’s Dilemma 


J. Dempsey, of Seattle, WA, has a 
sticky problem, one that most computer 
makers would prefer not to think about. 
Dempsey says, “I do writing in a techni- 
cal field (linguistics) where I need to use 
a variety of special symbols. As far as 
possible, these should have equal status 
with the regular alphanumerics. I’ve seen 
articles on how to generate such symbols 


- (DAY 

- (DAY 

a ADAY- > 
MONTH = 
DATE = 
RETURN 
REM GIVEN YEAR IN 0..9999, RETURN LEAP TRUE OR FALSE 
LEAP = ((YEAR MOD 4)=0) * ((YEAR MOD 400)<>0) 
RETURN 
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on an IBM PC, Apple, etc. but always in 
a graphics, not a text, mode. [I assume 
that such characters] are therefore in 
poorer resolution than ordinary ones, 
clumsy to use from the keyboard, and 
presumably useless for word-processing 
or data bases. What do I do?” 


What, indeed? Before you rush to 
answer, take a close look at one of the 
examples Dempsey sent along (see box, 
this page). It’s all very well to note that 
the Atari, the PC, the Victor 9000, etc., 
all have screen character sets that can be 
partly or completely redesigned by the 
user; getting the symbols onto the screen 
is only a tenth of the battle. 

Let’s call symbols like the ones 
Dempsey works with specialist symbols: 
symbols not in the standard ASCII set, 
but which are commonplace in some spe- 
cialist’s field — linguistics in this case. 
Law, medicine, mathematics, indeed 
every profession, makes use of its own set 
of specialist symbols. The International 
Phonetic Alphabet is one set of specialist 
symbols that it would be nice to have 
when working with, or writing about, the 
Votrax speech synthesizer. Choreogra- 
phers have an “‘alphabet’’ of dance move- 
ments; at one time IBM offered a Selectric 
typeball for it. Someone editing a diction- 
ary would like to have a set of diacritical 
marks. And so on. 


With many personal computers, we 
can put a set of specialist symbols on the 
screen, but only by replacing some part 
of the machine’s native font. The specialist 
characters are folded into the “letter 
space’ of 0..255, and so are ambiguous 
when stored in RAM or a file. A file con- 
taining them might look right when dis- 


played on the screen (provided the right 
user-defined text font is loaded), but will 
those byte values be processed correctly 
by a sort? And how can they be printed? 
A fundamental problem is that the 8-bit 
symbol space is too small to accommodate 
more than one alphabet. This doesn’t 
hurt when the problem is to accommodate 
a foreign language (although there is a 
problem when the foreign alphabet has a 
large number of symbols, as with some 
oriental languages). But specialist symbols 
are an extension of the standard alphabet, 
not a replacement for it. 


There’s a mechanical problem, too: 
how do you arrange a keyboard to allow 
for a large vocabulary of specialist char- 
acters? The usual answer is, as before, 
folding — some keys are preempted to 
stand for special codes. One of the IBM 
PC’s best features is its ALT-shifted key 
values. When we first saw it, we thought 
it was useless, but the longer we work 
with it, the more uses we find for that 
third shift-mode. 

At any rate, has any reader got either 
practical hints for Dempsey on what sys- 
tem and software to look at, or more 
general comments on the whole problem 
of specialist symbols? 


Backward with the PC... 


The IBM PC does something very 
odd if you write a Backspace code (08h) 
from BASIC. If you write a Backspace 
when the cursor is at the left margin, 
nothing happens (which is just as it 
should be). But if you write a Backspace 
when the cursor is away from the margin, 
you get, not a leftward movement of the 
cursor, but a funny little graphics symbol, 


An example of “specialist symbols.” 


jak nafar deha:ti bema fashr 
A. peasant came to the city: 


berasa: be dokku:ne yanna:ti 


dar ba:za:r afo 


He was going along in the bazaar. 


furimizhaye ran rany 


He reached the shop of a confectioner. Confectionery of different kinds 


dokkun darfun tfiz bu 
was set out in the shop. 


apyjaft 


un fizri:nforu:f ashe ve 


This confectioner was sitting and 


merde deha:ti: cijarlef ka yanna:d kusre 


looking. The peasant thought that the confectioner was blind. 


dzaldi befo 
He went (forward) quickly. 


tfamfef daz 


merae dehusti: do ta: ungu:ft dzele 
The peasant held his two fingers before 


yanna:tef befva tfera im 


his (the confectioner’s) eyes. The confectioner said to him, “ Why did 


ka:ret beke 


merde deha:ti befva mon xija:lem ke ta kurriz 


you do this?” The peasant said, ‘“‘I thought you were blind.” 


mon kurr neha: avirnon 


deha:tt befva ajar to avizni tfera: to 


“Tam not blind; I see.” The peasant said, “If you see why 


furiunya: nazeri. 


do you not eat the confectionery ?”’ 





Dr. Dobb’s Journal, Number 77, March 1983 


a small reverse-video diamond. Try this 
to see it: 


PRINT ‘“‘>”’+CHR$(8) 


Beyond the irritation of not having a 
Backspace that backspaces, we find this 
puzzling because we pored over the BIOS 
listing in the Technical Reference manual 
and we can’t see where the bug is. Maybe 
it’s in BASIC. Furthermore, the symbol 
displayed is not any of the ones docu- 
mented in any PC manual that we can 
find, nor is it a reverse-video version of 
one of them. Can anyone explain these 
things? 


... Also Up, Down, and Around... 


If you are using CP/M-86 on a PC, 
you will find that the BDOS has a rudi- 
mentary form of terminal emulation built 
into it, so that the PC’s display can be 
programmed as if it were a terminal with 
an addressable cursor. The BDOS (not the 
PC’s firmware) supports escape sequences 
to set the cursor location and to access 
various other features. : 

If you are using MSDOS, you don’t 
have this option. Cursor addressing be- 
comes a matter of some rather advanced 
PEEKS and POKES, or their equivalent 
in whatever language you are using. One 
thing that might help is to note that the 
ASCII control characters FS, GS, RS, and 
US (1Ch, 1Dh, 1Eh, and 1Fh) are defined 
by BASIC as moving the cursor right, left, 
up, and down, respectively. However, this 
appears to be a BASIC function, not 
something built into the ROM BIOS or 
the CRT controller chip. From assembly 
language, you can call the ROM BIOS 
directly; what you do from Pascal or 
COBOL, we don’t know. Do you? 


... And BASICally Slower. 


Bob Pirko, of New York, took us up 
on our recent challenge; he has explored 
the contents of IBM BASIC and demon- 
strated to his own satisfaction and ours 
that it is definitely a mechanical transla- 
tion from 8080 code. He writes as 
follows: 


“IT own an IBM PC, and like you, I 
found IBM BASIC to be slower than I 
had expected. Having traced the execu- 
tion of a few statements in BASIC, I can 
offer some reasons for lack of speed. 

‘“*Much of the code is undoubtedly a 
mechanical translation of 8080 code. 
Attached are three samples (see Listing 2, 
page 85) which list the code from the IBM 
PC’s ROM, the equivalent 8080 code, and 
more efficient 8088 code. Table 1 (page 
84) gives execution times for each of 
these routines. 

““The IBM ROM routines are two to 
six times slower than they could be, and 
approximately twice as slow as compara- 
ble 8080 code. While such cases demon- 
strate the perils of mechanical translation, 
most of the code in IBM BASIC is not 
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the FRIENDLY COMMUNICATIONS SOFTWARE that has been EASY TO USE since 1978 


e Auto Dial + Answer Turnkey package with BBS 

¢ COMMX Smart Terminal and File Transfer w/ 
Mainframe Protocols, CRC16 BiSync + Batch 

¢ CONSOLX Remote System Access Controller 


QsSHAWKEYE GRAFIX 


quite so bad. In fact, some of it has been 
optimized to use the superior features of 
the 8088’s instruction set. Still, most 
routines take longer than similar 8080 
code executing on a 5MHZ 8085 or even 
a 4MHZ Z80. 

‘Generally, the 8088 will execute 
fewer instructions per second than an 
8085 or a Z80. This may seem surprising, 
but shouldn’t be. The rate at which in- 
structions are executed is only one of the 
factors which determine speed. Of equal 
importance is the quantity of useful work 
done by each instruction. Happily, the 
8088 repertoire contains a large number 
of operations which do as much work as 


Bulletin Board System w/Data File Manager 
Ofelttetcmlaveltce(zem elas Cau C-laae mn ele aa Dite 
Fortran available for Mainframe BiSync 
Detailed User Manual Available For $20 


CPU License $150 Object or $900 Source 


Ory: e-1on am Zell cam Moter-| Wm DY.) (1 ame) ame OF-1| Mey mA ha | CU ake) a otc 1 -e os cele a 
23914 Mobile, Canoga Park, Ca. 91307 U.S.A. ¢ 213/348-7909 
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two or more 8080 instructions. It is only 
by effective use of these instructions that 
an 8088 can reach its true potential. 
Translated code is slow because it consists 
of just those 8088 instructions that are 
functionally equivalent to 8080 instruc- 
tions. 


“The 8080 has many one-byte in- 
structions that execute in one memory 
access cycle. The equivalent 8088 code 
requires two bytes and often takes two 
memory cycles (eight clock cycles) to 
execute. Intel manuals list shorter times, 
but they assume that the instruction has 
been pre-fetched and is waiting in the 
internal queue when needed. This is often 


Table 1. 


IBM ROM * | 


* Based on time test run or an IBM PC. 


**% Calculated for 5S Mhz. 


84 


8285. 


Equivalent 


untrue, especially for the kind of code 
produced by a translator program. 

“In summary, even if Microsoft had 
done a better job at optimizing the trans- 
lated code, the performance would still 
have been below expectations. Really 
efficient code would have required a 
complete rewrite of BASIC. This would 
be an ideal project for someone with a 
couple of years available and nothing 
better to do.” 

DD, 


Efficient 
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Listing 2. 


Example 1 -- Add 8 bit value in AL ta BX 


IBM ROM Code Equivalert 8@82 cade Efficient 8288 code 
ROM Address ROM Code 
F6@0:1893 ADD AL, BL ADD & CRW 
F600:1895 MOV BL, AL MOV L,A ADD BX, AX 
FE@A: 1897 ADC AL, BH ADC H 
F60@:1899 SUB AL, BL SUE L 
F602: 1898 MOV BH, AL MOV H,A 


This code is executed whenever one of the four arithmetic operators is specified. It is used to compute the address of the appro- 
priate arithmetic routine. The value in AL is always less than 7FH so CBW gives the correct result. The efficient code does not 
preserve the contents of AH as does the ROM code. This is no problem because the subsequent code does not expect any value to 
be passed in AH. Indeed, it would be surprising if it did since translated code doesn’t know that the AH register even exists. 


Example = -— Subtract BX from an immediate value (@FF26H) 


Some Comme eusne euene cunee comm cumun conan cameo <enup cutee cummp cuneo seu cumne sense couse Sous souno ceaue sneso aus Gusen anus cane carve ensue couse cosy cate> cutee cutte atts et=t0 sega saute ctLs> cosns eutes conse anne eunse aqssy enens cutee seuss sotes stows cusee seuss cesrs eves ausso atten coun eoson come 


IBM ROM Code Equivalent 8@82 code Efficient 8@88 code 
ROM Address ROM Cade 
F60@:2CEQ@ MOV AL, 26H MVI A, 26H NEG BX 
F602: 2CE2 SUB AL, BL SUB L SUE BX, @DAH 
F6@a:2CE4 MOV BL, AL MOV L,A 
F6@0:2CE6 MOV AL, @FFH MVI A, @FFH 
F6@2:2CE8 SBE AL, BH SEE H 
F602: 2CEA MOV BH, AL MOV H,A 


This is executed once for each variable in a BASIC statement. I think this routine checks whether the stack has overrun its limits. 
J used SUB BX,O0DAH rather than the more natural ADD BX,0FF26H in order to set the flags the same as the original code. 


Example 3 -- String mave 


IBM ROM Code Equivalent 8@82 code Efficient 8@88 code 
ROM Address ROM Code 
F6@Q:2895 INC BL. INR L 
F600:2897 DEC BL MOVEIT: DCR Li MOV SI, Cx 
F600: 2899 JNZ 2£83CH MOV DI, DX 
F60@:289B RET RZ MOV CL, BL 
F6@0:289C MOV Sr, Cx XOR CH, CH 
F608: 289E LODSB LDAX B REP MOVSE 
F602: 289F MOV DI, DX MOV DX, DI 
F620:28A1 STOSB STAX D RET 
F60a:28A2 INC CX INX B 
F680: 28A3 INC DX INX D 
F6@2:28A4 JMP 2897H JMP MOVEIT 


This routine is used by BASIC to move string variables. It shows how bad mechanical translation can be. The 8080 uses BC and 
DE as memory pointers. The Intel standard is to equate BC and DE with CX and DX respectively, and the ROM obeys this con- 
vention. Since CX and DX can’t be used as memory pointers the ROM must add instructions to move the addresses to SI and DI. 


CSE Senne Sra aes ar Ea NEE SC ne Re ae ES ae AL ea Re 
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OF INTEREST 


by Michael Wiesenberg 


Move Over Ada, Here Comes Beb 


The Department of Offense has an- 
nounced Beb, their new programming 
language named after Mary Shelley’s 
maid’s daughter, B’eb, now conceded 
to have been the world’s first comput- 
er programmer. B’eb is reliably docu- 
mented as having programmed an idiot 
savant to balance her checkbook in 
1829, three years before Lord Byron’s 
daughter, Ada, even met Charles Bab- 
bage (and, in fact, several years before 
check books were even in the hands of 
the general public). Beb uses the IF... 
THEN... ELSE. >:BUT:..ON “THE 
OTHER HAND construct. ARANDOM 
GOTO statement randomly jumps to 
any program line; its EXTERNAL op- 
tion causes a jump to any random 


for megabyte?) And try to think what 
you could do with all that storage.... 
IBIS also makes a disk drive controller 
for drives with storage capacities up to 
40 Gb! (And don’t ask me if that’s 
really a billion, or 1024-cubed....) 
Reader Service No. 101. 


graphics and characters both print at 
50 cps. Print speed has little meaning 
in many printers that intermix colors 
in multiple passes or multiple strikes 
at the same spot, but the Transtar 315 
does not slow down, pause, or come 
back. And thus throughput “‘exceeds 
machines rated at 200 cps.”’ You can 
get an interface option right now for 
Apple][ (and for other computers 
soon) called PICS that lets you press 
a copy button on the printer to get a 
direct color graphics dump of the 
screen without using disks, exiting pro- 
grams, or changing application pro- 
grams. Transtar also offers a daisy 
wheel printer, the Transtar 130, for 
$895, that immediately runs from 
most micros with all word processing 
packages that have Diablo print rou- 





A Wonderful 
Software Marketing Trend 


BLOWUP, written in BASIC for 
the IBM PC, transforms text into inch- 
high (ten characters by ten lines) block 
characters on a printer for signs and 
notices. Not only does the 5%-inch 
diskette retail for only $24.95, but it 
introduces an unusual but welcome 





memory location, including some not 


accessible to the processor. Beb saves 
program space by writing all data to 


code space. Not only does Beb have no 


I/O routines, it does not permit them 


to be written. Beb incorrectly executes 


subroutines written in any other pro- 


gramming language. Optimizing rou- 


tines reduce any source program to 
exactly three bytes of object code. 
Conditional compilation causes the 
computer to compile your program 
only if it feels like it. Nested infinite 


loops lock up the CPU, bringing any 


time-sharing system to its knees. 
Touted as the first truly portable lan- 
guage, Beb can be installed on any 
electrical appliance, including such 
popular machines as VersaTeller and 


all Toshiba microwave ovens. Reader 


Service No. 3.14159265. 





A Trendy Giggle 


Here’s a new word for you to prac- 


tice: gigabyte. It means “one billion 


bytes.’ That is, a thousand megabytes. 
It’s pronounced with a hard g followed 


by a short i. I’ve been reporting disk 
drives with ever more storage, up to 


distribution philosophy to software 
marketing that I hope becomes a wide- 
spread trend. Robert A. Murray and 
Associates encourage you to copy the 
software and give it to friends, with 
the philosophy that “good, inexpen- 
sive software will sell itself.”” They ask 
only that those who find the software 
acceptable send them $20, in return 
for which they will receive a free cata- 
logue of other Murray software prod- 
ucts. The honor system: what a refresh- 
ing answer to piracy! Reader Service 
No. 103. 





Color It Any Color 


USI has introduced a 14-inch 
color monitor with a high resolution, 
80-column, 24-line display in seven 
colors that retails for $399. This is a 
vast improvement over a TV set, which 
is not made to be a computer monitor, 
its low resolution producing blurry 
characters and fuzzy graphics. USI last 
year gave this country its first amber 
screen monitor. Both monitors, and a 
green phosphor model, are available in 
9- or 12-inch sizes. Each USI monitor 
is housed in a stackable metal case and 





tines. You get boldface, underscore, 
proportional and incremental spacing, 
parallel or serial interface (one or the 
other), 300 to 2400 baud, 16 cps 
throughput, auto paper loading, bi- 
directional printing, and a six-month 
warranty. There is also a Transtar 140, 
for which they didn’t quote a price, 
that has all of the preceding, plus 40 
cps and a bidirectional tractor feed 
option. (The printers, by the way, are 
all made by Seiko’s Seikosha Group.) 
Reader Service No. 107. 





Adding to Your Color Computer 


Enhance BASIC on your TRS-80 
Color Computer with Spectrum Pro- 
jects’ Basic Aid, a ROM cartridge that 
sells for $39.95. Automatic line num- 
bering, single-key entry of most com- 
mands, redefinition of keys, merging 
routines stored on tape into a program 
in memory with automatic renumber- 
ing so tape libraries can be built, 
moving of any program lines anywhere 
about a program with consequent re- 
numbering of all GOTOs, GOSUBs, 


and so on, that reference the moved 





is style- and color-coordinated with 
most popular computers, to which 
they connect with standard phono 
jacks. Reader Service No. 105. 

And fora screen dump to printer 
of your wonderful color displays, the 
Transtar 315 prints in color for the 
same price as many black-and-white 
dot matrix printers. For $599 you get 
a four-hammer print head and the 
ability to print seven colors plus more 
than 30 shades in a single pass. Color 


160 megabytes and counting. We re- 
cently received notice from Capital 
Systems that they will be a distributor 
of IBIS Systems IBM-plug compatible 
1.25- and 2.52-gigabyte drives for 
mainframes, primarily for sale to U.S. 
government agencies. Not for the per- 
sonal computing crowd yet, nor were 
prices even quoted, but soon you'll be 
seeing a lot of that word. And remem- 
ber the abbreviation GB. (Or should it 
be “Gb,” to be consistent with “‘Mb”’ 


section, are all part of Basic Aid. Color- 
com/E turns the Color Computer into 
a smart terminal with on- and off-line 
scrolling, off-line printing, transfer of 
cassette files, serial printer support and 
full or half duplex. The program costs 
$49.95. They also sell a Spectrum Stick 
joystick that has a swivel ball, long ca- 
ble, sturdy construction and red LED 
on-indicator for $39.95 plus $2 S&H. 
They offer cables that extend the 
ROMpack port by three feet, add 10 
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feet to the joystick cable, extend the 
cassette recorder or printer/modem 
cable by 10 feet, and connect in line 
both a joystick and their newest prod- 
uct (so new, they didn’t even give us 
a price, but write them), a light pen. 
An R§S232 expansion cable attaches 
two devices to the serial port at the 
same time, permitting a printer and 
modem to be attached in line, for 
$19.95. You can use your new equip- 
ment to access Spectrum’s two bulle- 
tin boards, and Colorcom/E to down- 
load color graphics: (212) 441-3755 
and (212) 441-3766. Reader Service 
No. 109. 





















The IDE of March 


IDE Associates makes a 3.9-inch 
Winchester disk with fixed or remov- 
able cartridges for the IBM PC. For- 
matted capacity of 5.0 Mb costs 
$1450 for the internal mount-fixed 
cartridge version. The removable car- 
tridge versions cost $50 more. The 
price includes mounting hardware, ca- 
bles, software and diagnostics diskette, 
and manual. IDE offers, in ten metro- 
politan areas, what they claim is “‘the 
industry’s only free on-site installation 
service.” IDE also sells expansion 
memory and clock cards for the PC. 
For all their products, you get a one- 


















year return-to-factory warranty, or, in 
any of the ten areas, the option to 
convert the warranty to a fixed-price 
on-site maintenance agreement. Read- 
er Service No. 111. 


More Memory at Less Price 
for Chipmunks 


Expand memory on HP’s Series 
200 (the 9826 and 9836 68000- based 
computers known affectionately in 
house as “Chipmunk,” and the new 
9816 personal ‘‘home’’ computer) 
with Eventide’s WKBP-4 256K mem- 
ory expansion board. At $749, it 
costs “hundreds’’ less than HP’s 
equivalent. You can add half a mega- 
byte to the 9816 for under $1500, and 
over two megabytes to the 9826 and 
9836 for, they say, ‘‘less than $5200.” 
I’m not sure how they perform this 
mathematical feat, unless they offer 
discounts for eight boards... . Read- 
er Service No. 113. 





Altos Talks to Other CP/Ms 


InterComm from Acquis Data 
transfers files between an Altos and 
other CP/M computers. Included is a 
module to communicate with bulletin 
boards and public data bases like Com- 
puServe, Dow Jones, and The Source. 


BASIC/Z.... 


For $175, you get two diskettes, man- 
ual, and communications/null modem 
cable. InterComm is also available for 
many other CP/M computers. Reader 
Service No. 115. 





If The Code Works, Use It 


Version 2.0 of the Q/C compiler 
for CP/M, from The Code Works, sup- 
ports a large subset (all but float and 
long data types, multidimensional 
arrays, structures, sizeof, typedef, and 
casts) of the C language, compatible 
with Bell Labs’ UNIX 7 C, and in- 
cludes a library of over 50 I/O func- 
tions. Q/C produces true native code 
for Z80 or 8080 for Microsoft’s M80 
assembler or for Digital Research’s 
ASM or MAC. Assembly language 
functions can be included in programs. 
With M80, programs can be compiled 
as separate modules and Microsoft’s 
L80 linker can be used to combine 
the relocatable files. Full source 
code for compiler and library are in- 
cluded, as well as a comprehensive, 
beautifully typeset 138-page manual. 
You'll need a 56K CP/M, and either 
soft-sectored 8-inch single-density or 
hard-sectored 5'%-inch Micropolis 
Mod-II format double-density (Vector 
Graphics MZ) disk. The Q/C disk costs 
$95. Look for version 3.0 soon, which 


the ultimate CP/M’ compiler! 





¢ Generates native code (8080/Z-80) for ® 


fast execution 


¢ Sort verb is unmatched by 


2000 elements in two seconds! 


e Alpha-numeric labels, varia 


Dimension arrays dynamically (to an 


expression) and selectively erase 


stand-alones. e 


Screen oriented editing of console input 
at run-time (cursor left/right/start/end, 


delete left/right/line, insert/change 


ble and 


function names of any length 


mode, and input masking available) 


¢ Push/pop subroutine stack 


¢ Chain program segments which share 


variables declared common 


* Trace and single-step debugging 


e Five data types - binary/BCD/string ° 


BCD floating point math - never a 
“round-off” error - precision is program 
definable from 6-18 digits 


Full function program editor tests syntax 
as you type 


Recursive, multi-line, multi-argument 
user defined functions 


Multi-tiered error trapping even handles 
BDOS errors 


Cursor addressing, reverse and blinking 
video, erase and more are supported 
from source code level, with virtual 
hardware independence 


An extended library of over 200 
“key-word” functions 








System/z, inc. 


Circle no. 78 on reader service card. 


For free brochure 
and mini-manual: 


System/z, inc. 
PO, Box 1] 
Richton Park, IL 60471 
GID 481-8085 | 





* a trademark of Digital Research 
















The language 
that is based 
on the past 
but looks to 
the uses of 
the future. 


J Take A Test Drive! 


* 






We all Know how important the 
test drive is when choosing a Car. 
But how do you choose the right 
language for your programming 
needs? 


Now we've just made it easier for you to make the right choice. 
Our new demo package allows you to experience the power of 
JANUS /Ada. 


JANUS /Ada is a subset implementation of Ada that includes many 
features not found in any other micro-processor programming 
language. Thesesinclude*true*modular programming, full error 
messages in English, error walk-backs, and re-entrant initialized 
variables. These and more features are described in greater detail 
in our informative brochure. 


Take up to 30 days to experience the power of JANUS/Ada. Make 
sure it does what you want. Then if you find it isn’t right for you, 
send it back and we’ll return your money, no questions asked. But 
we’re sure you'll want the complete package after experiencing 
part of the power of JANUS/Ada. Best of all you can get the demo 
package at the introductory price of $30.00. This offer concludes 
after the West*Coast°Computer Faire; March 51, 1985. Drop by the 
Faire and see.us_at.our.booth..... 4 . 





Information 
Call, write or circle,our reader service number to- 


receive our 
informative brochure. = 






Ordering 2 = 
Please specify your microcomputer, CPU, disk format and operating 
system. i a 


JANUS/Ada.Demo Disk and Manual n Ore 
Contains-evaluation compiler, linker and example:programs. 
Available on 8” MS-DOS,-8” €P/M, Apple-softeard 
and IGPFPO TT, wa ee rer ee SOO. OG 
| .$30.00:can'be applied to-full JANUS /Ada package. 


JANUS/Ada Package ls 
Contains complete,compiler, linker, assembler, example programs, 
Vit CRETE os oF ce we ie lata ale eh Prices from $300 
Available on most disk formats. Call for your system price. 
CP/M, CP/M-86, MP/M-86 are trademarks of Digital Research, Inc. 
* ADA is a trademark of the U.S. Department of Defense 


MS-DOS is a trademark of Microsoft 
Apple Softcard is a trademark of Microsoft, Inc. 





Re ©Copyright 1982 RR Software 
So FTWARE specialists in slate of the art programmng 
P.O. BOX 1512 MADISON, WISCONSIN 53701 (608) 244-6436 
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will support structures, unions, multi- 


dimensional arrays, and a few other 
new features, using the Z80 instruc- 


tion set, and producing smaller, quicker 
code. This will be offered as a $12 up- 
grade to current users. A version for 


the IBM PC (PC DOS) will also be re- 


leased at that time. The Code Works 
also offers what they call the ‘‘original”’ 


Small-C by Ron Cain for $19.95, a 


much smaller subset of C, with a mini- 
mal assembly-language I/O library and 
an 11-page manual. It needs 48K. Add 
$3.50 shipping in U.S. and Canada, or 


$15 elsewhere, and, in California, 6% 


sales tax. The Code Works charges no 
license fees for programs created on its 
compilers and libraries. Reader Service 


No. 117. 


Flying a Simulator? 
Simulating Flying? 


Now you can do your armchair 


flying — from the armchair facing your 


computer, or flying by the seat of 


your pants — without leaving your ter- 
minal. Flight Simulator by Microsoft 
for the IBM PC is for novice to experi- 


enced pilots. As your skill increases, 
you add various conditions, such as 


and even radio navigation. The screen 
displays an “out-the-window” 3-D 
perspective view with full instrumenta- 
tion. You have real-time control of 
the plane (a single-engine Cessna 182) 
in several flight conditions, and data 
that simulate twenty-three airports in 
four parts of the country (Seattle, LA, 
Chicago, and New England). You also 
get British Ace, a World War I combat 
game that test your flying skill and 
strategy against enemy biplanes defend- 
ing territory that you must bomb. 
You'll need a PC with PC-DOS, color/ 
graphics card, 64K, one disk drive, and 
a monitor (they recommend the stan- 
dard composite color monitor, but 
you can use black-and-white or RGB). 
$49.95. Reader Service No. 121. 


Legal Copy Service 


Port-A-Soft (formerly Disk Copy 
Service) converts disks between several 
formats, to or from 5%- or 8-inch, 
single-, double-, or quad-density, in 
formats of various operating systems 
and many popular computers, for $5 
to $15 per diskette, and copies after 
conversion for $2.50 each. Reader 


Other Stuff 


Do you own or have access to a 
DEC system with RT-11, TSX, or 
TSX-Plus? Do Z80 software develop- 
ment on it with SATEC Systems’ Z80 
Cross Assembler, available for $200 on 
paper tape, 8-inch floppy, or source 
listing. Reader Service No. 123. 

Here’s your chance to see if you 
are smarter than a computer at word 
games. Wordtrix from Insoft for the 
IBM PC has you compete against the 
machine to find words in a random 
grid of letters. The computer brings its 
own dictionary (how can you argue 
with the guy who brings the bat?) 
and plays on several levels. $34.95. 
Reader Service No. 125. 

Learn about protecting software, 
copyrighting programs, writing and 
negotiating your own licensing con- 
tracts, limiting liability, and other legal 
considerations for programmers and 
software publishers in Legal Care for 
Your Software by Attorney Daniel 
Remer, published and distributed by 
Nolo Press. Reader Service No. 127. 


DB, 


time of day, cloud cover, season, wind Service No. 119. 


shear, trim, carburetor icing, fuel usage, 


MICROSTAT® - Release 3.0 
MICROSTAT® + baZic® = PERFORMANCE 


The best just got better! MICROSTAT has been the 
leader in the statistics field for microcomputers since 
1979, and the new release 3.0 outperforms and is 
noticeably faster than previous versions. Just a few 
of the features include: 


GREATER ACCURACY 

BCD with up to 14 digit precision: 
PROGRAM ENHANCEMENTS 

Missing data capabilities and many more; 


FASTER EXECUTION 
Calculation time greatly reduced; 


DYNAMIC FILE ALLOCATION 
Data can be inserted, added, or deleted; 


SPECIAL PRICE: 
For a limited time get MICROSTAT plus baZic 
complete with program disk and documen- 
tation for each for $395.00, save $50.00! 


The MICROSTAT - baZic version requires: a Z80 CPU, 
CP/M™ and 48K of memory. Available formats: 8’ SD 
disk or 5%” North Star only. Check with your dealer for 
other formats. Also available for: Microsoft's Basic-80™, 
North Star DOS and IBM. For more information, call 


or write: 
ECOSOFT INC. 


P.O. Box 68602 = 
Indianapolis, IN 46268-0602 WARS 
(317) 255-6476 


MICROSTAT is a registered trademark of ECOSOFT, INC. 
baZic is a registered trademark of MICROMIKES, INC. 
CP/M is a registered trademark of DIGITAL RESEARCH 
Basic-80 is a registered trademark of MICROSOFT 


FREE! Dr. Dobb’s T-Shirt 


For details on getting one of these free 
and sure-to-be collector T-shirts, drop by 
booth #1827 at the West Coast Computer 
Faire at the Moscone Center in San Fran- 
cisco on March 18-20. 
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Letters 
(Continued from page 11) 





dtoi unnecessarily requires two (as do 
Hendrix’s utoi and xtoi). Also discordant 
with K & R’s atoi function, Mr. Hendrix’s 
itou and itox also require one more pa- 
rameter than they should. The string size 
parameter is useful but, probably more 
often than not, not necessary. Perhaps 
these functions should be retained, given 
names to denote their special ability, and 
not published as the main functions of 
their type in a “standard” library. 

I consider the loose interpretation of 
the C standard as it pertains to its libraries 
a major problem for its future portability. 
I’ve tried several of the compilers availa- 
ble commercially and found them all to 
have problems in this area. 

Both the BDS-C and the Supersoft C 
compilers have non-standard fopen func- 
tions. That’s one function they should 
know enough to leave alone. BDS doesn’t 
implement the mode feature at all, and 
requires a pointer to a buffer be passed to 
it (why?). Supersoft simply adds an addi- 
tional argument allowing you to specify 
your buffer size. Handy perhaps, but non- 
standard! Why not make it an additional 
function by a different name if you need 
the ‘‘enhancement.’’ Ah, and what about 
the Cadillac — Whitesmith’s? It too re- 
quires an additional argument to specify 
that the buffer address be passed to its 


& 





fopen. But that’s just the beginning for 
Whitesmith’s. 

Their enhancements (read “‘incompat- 
ibilities’’) are legion. Believe it or not, 
they don’t even have a printf function! 
Or a scanf. They have putfmt and getfmt 
instead. They are slightly more flexible, 
and don’t use the old standard names 
which is good, but why no printf and 
scanf? Whitesmith’s list of small ‘“‘enhance- 
ments’ goes on and on: strcpy is called 
cpystr, stremp is called cmpstr, atoi is 
called btoi (buffer to int), itoa is called 
itob, etc. My pessimistic side says they do 
this to lock you in to their family of C 
compilers (8080, PDP-11, 68000, etc.). 

Come on guys, it’s a great language; 
don’t muck it up. 

Anyone even halfway serious about 
using C and perhaps building his own ex- 
tended library (that’s what it’s all about) 
should read the K & R book from cover 
to cover at least twice, and pay close at- 
tention to the style the fathers of C have 
developed and to their many good exam- 
ples. Their’s is only one way of doing it. 
But it’s a good way, and it’s the standard. 


Not to detract from the very impor- 
tant C problem, I’d like to make a note in 
reference to the “Interrupts and CP/M” 
article. Circular or ring buffers, as they’re 
called, are very natural with most proces- 
sors, and very handy as the article shows. 
I think Mr. Bromberger may have missed 
the point that many things in the com- 


puter world are naturally circular. As an 
example, his code to keep the buffer 
pointer within the limits of the buffer: 
inr 
cpi 
jc 
mvi 
intl: 


can easily be replaced with the following 
code which is smaller and, I think, more 
indicative of the buffer’s circularity. 
inr a 
ani 7fh 
intl: 


This requires that the buffer size be an 
even power of two, and the mask (7fh in 
the example) be one less than the buffer 
size. 

I’d also like to mention that I feel 
that little flap with the JRT people is a 
good reaffirmation of DDJ’s separation of 
editorial and advertising policies. Too bad 
for JRT, they really did us all a service by 
starting the $29.95 movement. 

Thanks for a great magazine, and to 
these authors in particular for some very 
accessible and useful information. 


Sincerely, 

Richard Foulk 
Pegasus Software 
P.O. Box 10J 
Honolulu, HI 96816 


of NTE RSTE LLAR:D RIVE. 


_ A SOLID STATE DISK EMULATOR 


SAVE MONEY! 
Increase your 
computer's productivity 


The INTERSTELLAR DRIVE is a high performance 
data storage subsystem with independent power 
supply, battery backup, and error detection. It has 
256KB to 1 Megabyte of solid state memory integrated 
to perform with your operating system. 
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Save valuable time! 
5 to 50 times faster 
performance than floppy disks 
and Winchester drives 


PION’S INTERSTELLAR DRIVE is designed for use with a 
family of interfaces and software packages. Currently avail- 
able are interfaces for IBM, S100, TRS80, Apple, SS50, and 
most Z80 uP, and software for most popular operating systems. 
Additional interfaces are continually being developed for the 


most popular computers. 


Basic Price for 256KB unit [inciudes interface and he. 


$ 1 095. plus tax (where applicable) and shipping 
Visa and Master Card rm” S&S Ss ee 





Circle no. 82 on reader service card. 


PION  , inc. 


101R Walnut St.,Watertown, MA 02172 


TRS80 trademark of Tandy Corp. Apple trademark of Apple Computers 
Interstellar Drive trademark of PION, Inc. 
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What’s the Holdup? 


Dear Editor: 

JRT Pascal seems to be a current 
topic of interest among owners of micro 
computers. There have been several let- 
ters published reporting problems with 
the $29.95 Pascal system. Maybe this will 
be a new activity to be engaged in. I am 
sure that the problems that the owners 
have found with JRT Pascal are real. If 
JRT Systems is not going to solve these 
problems, I feel certain that the readers 
of Dr. Dobb’s Journal will soon be re- 
porting their solutions. Since the JRT 
System is priced within the reach of 
every computer owner, there will be 
many working on meeting the new chal- 
lenge. 

I have a problem that is not new with 
those of us who order by mail. I had my 
order processed on September 22, 1982 
by JRT Systems. I have not received my 
JRT Pascal as yet. Several letters to JRT 
Systems have gone unanswered. I hope 
that my program arrives soon, and then I 
can start finding if JRT Pascal is good or 
BAD. 

Sincerely, 

Donald M. Dealy 

231 Washington St. 

S. Attleboro, MA 02703 


Ed Note: The preceding letter was not 
the first that we have received of its kind. 
Since a number of you may be wondering 
where your package is, we thought that 
you might be interested in the following 
letter which we recently received from 
JRT Systems concerning late deliveries. 
We see that the letter does not mention 
adjustments to any of the bugs that have 
been noted, but we understand that JRT 
has a new version which they expect to 
begin shipping in mid-February. 


Dear Editor, 

We are having delays in the shipping 
of JRT Pascal to our customers. I have 
received a number of letters from custo- 
mers who are very concerned about this. 
Similar letters have been sent to the edi- 
tors of the magazines in which JRT Sys- 
tems advertises. 

It has always been our policy to 
immediately cancel any order on request 
or make an immediate refund if payment 
has been processed and shipment not yet 
made. 

As of today we have shipped 10,000 
Pascals and have 7,000 orders on backlog. 
About 6,000 of those are less than six 
weeks old. A six to eight week shipping 
delay is not unprecedented in the com- 
puter industry, but it is not acceptable to 
JRT Systems. 

How did this backlog develop and 


what am I doing to correct it? In May of 
1982, I cut the price of JRT Pascal from 


$295 to $29.95. I tested this formula by 
“‘mass’’ mailings of 100 then 400 then 
1000 brochures. Sales response was excel- 
lent — 10% to 15% — on the early mail- 
ings. I was able to very rapidly expand 
the mass mailings and advertising leading 
to these approximate sales figures: May - 
100, June-350, July- 700, August - 
1400, September - 2000, October - 4000, 
November - 3000, December - 5000. 


In August JRT Systems moved from 
my home to a small office on Irving Street 
in San Francisco. By October this office 
was severely crowded with six people, 
three phones and two computers. In mid- 
December we leased 6,000 square feet of 
space in Mill Valley. The shipping depart- 
ment has now moved from Irving into 
1,600 square feet of the new space. In the 
past two weeks, the shipping staff has 
grown from one to four full-time people. 
In this same period, we completed instal- 
lation of a sophisticated set of new ship- 
ping programs which automates, logs and 
validates every aspect of the shipping 
operation. Last week we exceeded 500 
Pascal shipments per day. With our new 
system we can exceed 1000 per day. 


We still have delays in obtaining 
copied diskettes rapidly enough, especial- 
ly in 5%” formats. Changes planned for 
the near future will eliminate this prob- 
lem. 

In short, the delay in shipping JRT 
Pascal is due to the staggering sales 
growth. We are moving as fast as possible 
to expand production capacity. 


Sincerely, 

J. R. Tyson, President 
JRT Systems 

550 Irving Street 

San Francisco, CA 94122 
(415) 566-5100 


A Few Suggestions 


Dear Editor, 

First, I want to address the contents 
of the columns, Of Interest, CP/M Ex- 
change, and 16-Bit Software Toolbox. 
The first of these columns contains infor- 
mation which IJ think most DDJ readers 
find redundant. I think that DDJ should 
devote its space to articles and not to 
condensed press releases which may be 
found in BYTE or any number of other 
journals. Conversely, I think that the sec- 
ond and third columns have a place in 
DDJ. However, I think that they need 
some changes. CP/M Exchange needs to 
deal with topics, not just contain an- 
nouncements. I would like to see the 
columnist find topics of interest and dis- 
cuss them instead of continually referring 
to RCP/M related announcements. Finally, 
I think that 16-Bit Software Toolbox 
should stay away from press releases and 
concentrate on one (or at most two) 
topics per month. This would allow the 


columnist to explore the topics more 
carefully. 


Second, I would like to reiterate my 
comment concerning the overall quality 
of the journal. I strongly believe that 
good material still appears in DDJ. How- 
ever, it is wise to remember that good 
material appeared in quantity even when 
the magazine ran with no advertisements. 
One would expect quality to increase and 
not for mediocrity to become a serious 
threat once ads were included. 

Finally, I would like to make one 
additonal comment. I think that articles 
should be rated by user reaction, and 
remuneration based thereon. This is 
already done by BYTE. 

Sincerely, 

Anthony Skjellum 

1695 Shennandoah Road 
San Marino, CA 91108 


Keeping Us Honest 


Joe Williams called in to let us know 
that we had a minor error in the Small-C 
compiler listing in the January 1983 issue. 
The listing portion at the top of page 63 
should have preceeded the listing portion 
on the top of page 62, not followed it. 


— Ed. 
DD, 





LSI-11 USERS 
CP/M ON YOUR Q-BUS 
FOR $695 - CP/M 2.2 
INCLUDED 


THE Hy DISK Z-11™ PUTS THE 
ENTIRE CP/M-80 SOFTWARE 
BASE AT YOUR DISPOSAL. SIM- 
PLY PLUG IN THE DUAL WIDE 
Q-BUS BOARD, AND BOOT YOUR 
RX01 OR RX02 INSTANTLY! 












¢ ZBOACPU-4MHZ ets 

¢ INSTANT INSTALLATION — 
GUARANTEED 

¢ NO EFFECT ON NORMAL LSI-11 

OPERATION |. 

USES EXISTING BOOTSTRAP 

HEATHKIT H-11 COMPATIBLE 

REQUIRES NO LSI-11 OPERATING 

SYSTEM SUPPORT — : 

SUPPORTS SERIAL AND PARALLEL- 

LP 

MANUALS, SOFTWARE, AND CP/M 

LISCENSE, ALL INCLUDED. 




























ORDERS RECEIVED BEFORE MAY 1, 1983 INCLUDE 
FREE CP/M SOFTWARE INDEX 





Hy DISK - 4540 KEARNY VILLA 
ROAD - SUITE 204 - SAN DIEGO 
CALIFORNIA 92123 

PHONE: 619/277-8753 
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COMPUVIEW’S CP/M-86 GIVES YOU WHAT IBM CAN'T 


increased 
Productivity 


Improve your productivity with built-in 
horizontal scrolling (254 columns) and 
screen line editing. This lets you exten- 
sively edit or re-enter any command line 
on the screen and greatly reduces the 
amount of re-typing necessary due to 
mis-typed or repeated commands. Its 
almost like having a built-in full screen 
editor for every program you use. And 
with 25% more disk capacity you will be 
swapping disks a lot less. 


We Don’t Lock You in 


Read and write not only IBM CP/M-86 
disks, but also IBM MSDOS and other 
CP/M double density disks. Transfer files 
with other CP/M and CP/M-86 com- 
puters via the serial port. The screen 
driver with status line emulates many 
popular terminals. And of course we're 
software compatible with IBM. 


Winchester Disk 
Support 

Special versions available to support the 
TECMAR, DeVong, Corvus and other 
hard disks. Or have a quad density 96 tpi 
double sided floppy as drive B(or CandD 
externally) with 782K capacity. 


No Software Shortage 
Most CBASIC programs run perfectly 
with our CP/M-86 and CBASIC-86. Even 
most programs compiled with CBASIC 
8080 will run with CBASIC-86. And 
Pascal-MT is available too. 


Compare CompuView with IBM CP/M-86 


Feature 

lm lo)s’4e)a\r-| Pecenge)iiiare! 

Screen Line Editing 

Page Control 

Emulate Popular Terminals 
‘Smart’ CRT Functions 
Read/Write I]BMMSDOS Disks 
Serial File Transfer 

Support Non-IBM Hardware 
Menu Driven Configuration 
Programmable Function Keys 
Status Line 

Serial and Parallel Printers 

File Capacity 


CP/M-86 forIBMPC ....... $285 
Quad Density Drive Version .9350 
Winchester Disk Version . . . .425 
Manual Only ............-- $20 


VEDIT-86 with above purchase. 
This version of VEDIT has horizon- 
tal scrolling (254 columns) . .125 


CBDASKAGO cindcoanewa sas 7325 
PASCAL-M1-SG6 sie.caneas 5600 


Tandon double sided 80 track 
drive gives 782K file capacity. Fits 
into IBM PC as drive B, or connect 


two externally. CompuView 
CP/M-86 required. ........ 3450 


Compuview 





tel g=men) Col e- Ce [= 
Lower Cost 
Than IBM 


IBM Double Sided 
40 Track Drive 
IBM CP/M-86 


Total (320K file capacity) ... 


Tandon Double Sided 
80 Track Drive 
CompuView CP/M-86 


Total (782K file capacity) ... 





V-COM DISASSEMBLER 
Labels, ASCIl, Exceptional Speed 


No other Z80 CP/M disassembler produces understandable 
source code as quickly as V-COM. It is INTEL and ZILOG 
compatible, and features easy to read code with a cross refer- 
ence table. Best of all, it can create source code with user 
defined labels, storage areas and ASCII strings. V-COM is ex- 
ceptionally fast and can disassemble a typical 12K .COM file 
intoa 76K.ASM file, containing 7500 lines of source code, and 
a 33K cross reference file in under two minutes with 8” SD 
floppies. (About five times faster than others). 


You can create two auxiliary files to easily specify labels for 8 
and 16 bit values and the location of storage areas, tables and 
ASCII strings. The disassembled code can be sent to the 
console, the disk and the printer, or any combination at once. 


Each package includes a 30 page manual, sample program 
files and variations of V-COM compatible with TDL, MAC and 


ZILOG assemblers. Feature for feature, no _ other 
disassembler atany price evencomesclose............ 280 
PSION xe tect dimes sions ieneateedeonnnennee $12 


8086 SOFTWARE 


NEW Terminal and File Transfer program for IBM PC, 
Displaywriter and other CP/M-86 and MSDOS systems. 
(SupersetofMODEM7) ...........000 eee eee e ee eee $70 


VEDIT full screen editor for CP/M-86, MSDOS, IBM Personal 
Computer andIBMDisplaywriter. .................- 3195 


CP/M-86 BIOS for popular S-100 disk controllers and SCP 
8086 computer. Source Code. ........... 0. cee ee eee 290 


Bootable CP/M-86 disks for popularS-100computers . .Call 
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New Software from CompuView 


Mainframe Features for Microcomputers 





MODEM-36 
Communications for 
CP/M-86 and MSDOS 


MODEM -86 is the first truly universal 
communication program. It allows 
you to access a dial-up computer, 
capture and store the data on disk, or 
transfer files back and forth (using 
X-ON/X-OFF). Single and multiple 
files (both ASCII and Binary) may also 
be transferred reliably with error 
checking/correction between any 
system running MODEM8&6 or the 
popular MODEM4 and MODEM7 
programs. The help command, 
command menu (expert mode turns 
menu off), and directory display 
simplify operation. 

The unique installation supports 
the IBM PC and Displaywriter, other 
popular 8086 computers and many 
S-100 I/O boards. Finally you can 
communicate with almost any other 
computer. 


Versionfor CP/M-860rMSDOS._ .$89 
For both CP/M-86andMSDOS .$120 


COMPUVIEW ADVANCED CP/M-86 
FOR IBM PERSONAL COMPUTER 


Advanced features include built-in horizontal scrolling and screen line editing. 
Includes ability to read/write IBM CP/M-86 and PCDOS disks, emulation of 
popular CRT terminals, a menu driven configuration, higher disk capacity and 
serial file transfer with other computers. Special versions are available to support 
80 track drives, TECMAR, DaVong and other hard disks. 


CP/M-86forIBMPC ........e ccc ccccccececcceeeeeeeceeeceeeeerece. $325 
Winchester diskversion ........... 0. ccc ccc cece cece eeccucececceceee. $425 


V-DISK - An extension to our CP/M-86 intended for software distributors. Allows 
production of common double density disks (Televideo 802, DEC VT180, NEC 
PC8000, SuperBrain, etc.) ontheIBMPC ............... $500, plus $40/format 


V-SPOOL - 16K Software Print Buffer 


Instantly buffers up to 16K of text destined for the printer in memary. Instead of 
waiting for the text to print, you retain complete computer control while the 
buffered text is sent to the printer. Never loses your keystrokes! Your time savings 
will be substantial, and the operation as simple as asingle command. Requires no 
hardware or software modifications, just CP/M 2.2. Occupies only 3K of memory 
plus the size of thevariable printbuffer ............0.. 0000 cece eeeceeee. 379 


BIOS FOR CP/M-86 
AND MSDOS 


Call for details on CP/M-86 BIOS for popular S-100 disk controllers (track 
buffering available) and MSDOS BIOS for hard disks and CompuPro disk 
controllers. 


V-COM DISASSEMBLER 
Labels, ASCili, Exceptional Speed 


No other Z80 CP/M disassembler produces understandable source code as 
quickly as V-COM. It is INTEL and ZILOG compatible, and features easy to read 
code with a cross reference table. Best of all, it can create source code with user 
defined labels, storage areas, and ASCII strings. 

Exceptionally speed - disassemble a typical 12K .COM file into a 76K .ASM file 
containing 7500 lines of source code and a 33K cross reference file in under two 
minutes with 8” SD floppies. (About five times faster than others). 

Two user created auxiliary files can specify labels for 8 and 16 bit values and the 
location of storage areas, tables and ASCII strings. The disassembled code can be 
sent to the console, the disk, the printer, or any combination at once. 

Each package includes a 30 page manual, sample program files and variations 
of V-COM compatible with the TDL, MAC and ZILOG assemblers. Feature for 
no other disassembler at any price evencomes close. ................004. $80 
IGN dct sone nancdene eens caeesepeneeetead $12 
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V-BUG - A Z80 
Debugger 


V-BUG is a combination ROM resi- 
dent monitor, I/O handler and 
program debugger. Includes 
diagnostic and simple communi- 
cation capability, flexible 1/O 
assignments, CP/M compatability, 
complete program debugging with a 
disassembler and EPROM burner. 

Commands are specified in full words 
or abbreviations, allowing unlimited 
expandability. Intended for installation 
into 5K of EPROM. Complete source 
OG. 6 cs cahtedivssciedaxotee $75 











PRODUCTS, INC. 


1955 Pauline Blvd., Suite 200, Ann Arbor, Michigan 48103, (313) 996-1299 


COMPress* 








































Complements Software 


COMpPress is a data compression pro- 
gram to speed up data transmission 
and enhance media storage capa- 
bilities. 

COMPress is beneficial for archival 
storage of files, by reducing the volume 
and cost of disks or tapes. CP/M’ files 
may be reduced by 30 to 40 percent 
with COMPress. COMPress also pro- 
tects your files from unauthorized ref- 
erence. Once a file has been com- 
pressed, it cannot be read until decom- 
pressed with the COMPress program 
utility. Tape backups from a hard disk 
system are faster after compressing the 
files. 


Data compression also improves 
modem performance in communica- 
tion channels as well as reduces on- 
line time. COMPress can reduce that 
costly transmission time by almost 40 
percent. Typesetting can become quite 
inexpensive with the combined talents 
of telecommunications and COMPress. 


COMPress has a multitude of applica- 
tions to make your microcomputer 
cheaper and more efficient. 

Contact your local computer dealer or 
Digital Marketing Corporation, to order 
this money saving product by author 
Anthony Skjellum. The price is $59.95. 
COMPress is available in most popular 
microcomputer formats. 


SOFTWARE 

SOF IWATE 

DIGITAL MARKETING 

DIGITAL MARKETING™ 
P A> PAG Bs 

Nig a5 =n Si. 

a 
DIGITAL MARKETING CORPORATION 


2670 CHERRY LANE ® WALNUT CREEK @ CALIFORNIA © 94596 
(415) 938-2880 @ Telex 17-4852 (DIGMKTG WNCK) 









Dealer Inquires invited Dealer: outside Calttomia call 
(501) 442-0864 Insice Caltfornia coll (415) 938-2883 


COMPress is a registered trademark of Pyramid Sys- 
tems, Inc. 

has is a registered trademark of Digital Research. 
nc. 
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Which do 


ou think is the 


more sophisticated computer? 





The big differences between the Epson HX-20 Notebook 
Computer (on the left) and the Apple Computer (on the 
right) are: 1) the HX-20 doesn’t need a power cord, 2) the 
HX-20 weighs only about four pounds, and 3) the HX-20 
costs a lot less money. 

The Epson HX-20 Notebook Computer has a full-size 
keyboard, a built-in LCD screen, a built-in printer, 48K of 
combined RAM and ROM memory, and an internal power 
supply that will keep it running for over 50 hours. So you can 
do computing and word processing virtually anyplace you 
happen to be. Whereas, with the Apple Computer, you can 
only go as far as an extension cord will take you. 

And on the HX-20, you get communications interfaces, 
upper and lower case letters, five program areas, a full 68 
keys including an integrated numeric key pad, an internal 
clock/calendar, and the screen and printer. Standard. On 
the Apple, you pay something extra for each feature — if you 





can get them at all. 

All of which makes the take-it-anywhere HX-20 perfect 
for business executives, salespeople, students, kids — 
anyone who’s looking for an affordable, practical way into 
computing. 

Portable. Powerful. Affordable. Sophisticated. The extra- 
ordinary HX-20 Notebook 
Computer. Find out just how 
extraordinary. Call (800) 
421-5426, in California (213) 
539-9140 for your nearest 
Epson computer dealer. 


EPSON 


EPSON AMERICA, INC. 
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MACROTECH International Corporation 





-100 World News 


22133 Cohasset Street, Canoga Park, California 91303 * 213-887-5737 


Megabyte S-100 Memory Here Now 


Major breakthrough made by 
Macrotech International Corporation 


CANOGA PARK (MI)-January 20, 1983-Mike Pelkey, president of Macrotech International 
Corporation, today announced a major technological breakthrough in S-100 dynamic memory 
board density. A full megabyte of high speed dynamic ram is contained on a single stan- 
dard size S-100 multilayer P.C. board. The product, dubbed ‘Max’ meets all IEEE/696 mech- 





8 @ 
MP Family Growing 
Another product recently introduced by 
Macrotech is soaring to the top of the best- 
Seller list. The Multiuser II is a 128 kbyte 
70ns CMOS static ram memory board that is 
unquestionably without peer in the S-100 
marketplace. It’s a 6-layer board with blazing 
speed, 8/16 data transfer protocol, and ultra- 
low power external battery support. The 
same M3 memory mapped addressing archi- 
tecture so in demand with system software 
professionals is now standard in the new 
Multiuser II. M3 was first developed by Macro- 
tech for the popular Multiuser I 256K dynam- 
ic ram board to meet the demanding require- 
ments of today’s sophisticated systems. 
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Macrotech’s advanced memory mapping 
scheme allows each 4K block of the 16 bit 
(64K) logical addresses to be dynamically 
translated to any 4K block of the physical 
memory. Global memory can be configured 
to any size and located anywhere in the logi- 
cal address space. All remaining memory can 
be addressed through the remaining logical 
address space by simply reloading the map- 
ping registers to address the desired physical 
memory blocks. This scheme permits unlimit- 
ed use of all on-board physical memory. 


anical and electrical specifications and byte 
parity generation/checking is included as a 
standard feature. Max supports IEEE/696 24- 
bit addressing (selectable at any 128K boun- 
dary), 8/16 data transfer protocol, phantom 
line operation, and the same ultra low noise 
bus signal filtering provided on Macrotech’s 
popular high performance 256K dynamic 
memory board. 

Max is in production now and shipping at 
the all-time low cost per bit list price of $1,983 
in unit quantity. 

Bruce Kimmel, Macrotech’s sales manager 
reports that customers are being served on 
a “first-in, first-out” basis and warns that due 
to a high incidence of graphics and similar 
memory-intensive applications, along with an 
unwillingness in the trade to pay exorbitant 
prices for memory, backlogs may occur for 
Max which could delay shipments against 
some late orders. With the improbability of 
second sourcing for some time, interested 
parties are urged to get orders in as soon as 
possible. Bruce can be contacted at 22133 
Cohasset Street, Canoga Park, California 
91303, or reached by telephone at (213) 
887-5737. 





Where it all started: pictured is the popular 
Multiuser I, Macrotech’s first product. This 
widely used board provides 256 Kbytes of 
dynamic ram with 4K page memory map- 
ping (called M3), 8/16 bit operation, 24 bit 
addressing and byte parity checking. 


Circle no. 1 on reader service card. 





Virtual Disk 
Flexibility Cited 


CANOGA PARK-January 20, 1983-Macro- 
tech reports their Multiuser I and Multiuser 
If S-100 ram memory boards can be used as 
both system memory and “virtual disk” stor- 
age in eight or sixteen-bit applications. Ad- 
dressing flexibility is the key. The Multiuser 
M3 memory mapped addressing is guaranteed 
to allow memory partitioning to fit the exact 
requirements of your system without ever 
wasting a single byte. 

Today’s trend in operating systems appears 
to include extended memory capabilities to 
allow for the recent technological advances 
in semiconductor memory. A close look at 
Digital Research’s new CP/M 3™ for example, 
would lead you to believe that it was especial- 
ly created to fit Macrotech’s family of Multi- 
user memory boards. (It wasn’t, but try to find 
one that fits better.) | 


MACROTECH 
Announces 
Distribution Expansion 


CANOGA PARK-January 20, 1983-Macro- 
tech is now establishing domestic and inter- 
national dealer/representative networks. The 
California based firm is expanding it’s cus- 
tomer support through these channels and in- 
vites inquiries. Volume users and retailers 
should contact the company for details. 

Macrotech’s marketing director Bob Ryle 
states, “IEEE/696 has made S-100 legitimate. 
It is rapidly gaining acceptance due to its in- 
herently superior speed characteristics’ Ryle 
attributes the growing demand for Macrotech 
memories to Macrotech’s strict adherence to 
the IEEE standard. 





